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DER DEBUGGER 
UND SEINE 
MÖGLICHKEITEN 

Aufgrund der Tatsache, 
daß die Zahl der Editor/ 
Assembler-Besitzer lau¬ 
fend steigt und somit eben¬ 
falls (hoffentlich) der 
Assembler Programmierer, 
habe ich mich entschlos¬ 
sen, Teile des Debuggers 
näher zu erläutern. 

Nach genauem Studium, 
sowohl der englischen als 
auch der deutschen Be¬ 
schreibung, zeigten sich 
einige Mängel, die ich hier¬ 
mit beheben möchte. Der 
erste Befehl auf den ich 
näher eingehen möchte, 
gestattet das Auslesen des 
Assemblermoduls, sowie 
das Inspizieren sämtlicher 
Grom-Module. 

Mit dem Kommando 
M 06000,7800 zeigt sich 
der Inhalt des E/A-Moduls, 
das nach dem Laden des 
Debuggers auch aus dem 
Gromport entfernt werden 
kann. Jetzt könnte z.B. 
das Statistik-Modul ins 
Port gesteckt und ausgele¬ 
sen werden, wenn nicht 
beim Einschub eines Mo¬ 
duls ein Resetimpuls auf- 
treten würde. 

Dieser Reset kann auf ein¬ 
fache Weise bei Modulen, 
die nur mit Groms 
(Graphic Read Only Me- • 
mory) bestückt sind, außer 
Kraft gesetzt werden. Die 
nachfolgende Liste führt 
einige dieser Module auf: 
Ti-Writer 

Text- und Dateiverwaltung 

Editor/Assembler 

Datenverwaltung und 

Analyse 

Statistic 

Multiplan 

Buchungsjoumal 

Wumpus 

Speech-Editor 

Amazing 

Adventure usw. 

Sollten Sie im Zweifel dar¬ 
über sein, ob Ihr Modul 
ein reines Grom-Modul ist, 
genügt das Öffnen des 
Gehäuses. 

Treten dabei nur ICs zuta¬ 
ge mit maximal 16 An¬ 
schlüssen, so besteht kein 
Zweifel, daß es sich um ein 


TIPS & TRICKS 


nur mit Groms bestücktes 
Modul handelt. Zum Aus¬ 
lesen des Moduls genügt 
das Überkleben des Pins 1 
mit einem Stück Tesafilm. 
Dieser Pin befindet sich, 
wenn Sie Ihr Modul von 
vorne betrachten (Stecker¬ 
seite, die in den Grom- 
schlitz gesteckt wird), 
rechts unten. Nach dieser 
Behandlung können Sie 
Ihr Modul jetzt in das 
Grom-Port stecken und 
auslesen. 


MODIFIKATION OHNE 
EINGRIFFE 


Diese Modifikation kann 
ohne irgendwelche Ein¬ 
griffe ins Modul auch von 
außen durchgeführt wer¬ 
den. 

Die nachfolgende Tabelle 
zeigt die gültigen Adreß- 
bereiche der Groms: 

M G6000,7800 Grom 1 
M G8000,9800 Grom 2 
M GA000,B800 Grom 3 
M GC000.D800 Grom 4 
M GE000,F800 Grom 5 

Noch ein Tip zum Aus¬ 
lesen. 

Leider hat sich gezeigt, daß 
manchmal trotz ,,Spezial¬ 
behandlung“ ein Reset 
auftritt. Dieser Fehler kann 
durch folgende Punkte 
weitgehend eingedämmt 
werden. 

1. Start des Debuggers 

2. Befehl M 0,FFFF 

3. Entfernen des E/A- 
Moduls 

4. Einstecken des auszule¬ 
senden Moduls 

5. Anhalten der Auflistung 
mit FCTN X 

6. Auslesen laut obiger 
Tabelle 

7. Bei Absturz Neu 
beginn mit Punkt 1 


1100 Controller 
1300 RS232 I 
1500 RS232 II 

1800 Thermalprinter 
1F00 P-Code 

Der Adreßbereich des DSR- 
Roms befindet sich bei 
4000 — 5FFF. Je nach 
Notwendigkeit wird vom 
System eines der Periphe¬ 
riegeräte zu- oder abge¬ 
schaltet. Dieses Zuschal¬ 
ten bei Gebrauch bietet ge- 
gegenüber anderen Com¬ 
putersystemen den Vorteil, 
daß bei einer Peripherie¬ 
erweiterung kein Rambe- 
reich verloren geht. 

Wie kann man nun z.B. 
das Betriebssystem der 
RS232 I auslesen? 

Mit dem Kommando 
C 1300,1 <Enter> erfolgt 
die Ausgabe C 1300,XXXX 
die mit einer Eingabe von 
1 <Enter> abgeschlossen 
wird. Nun können Sie das 
Rom im Bereich 4000— 
5FFF auslesen. 


AUCH FÜR 
MINIMEMORY 


Der Befehle 1300,1 be¬ 
wirkt dabei, daß nur ein 
Bit ab der Cru-Adresse 
1300 Hex ausgegeben wer¬ 
den kann. C 1300,0 würde 
eine 16 Bit breite Ausgabe 
ab 1300 erlauben. 

Bevor Sie nun ein anderes 
Rom auslesen, muß erst 
das Cru-Bit bei 1300 zu¬ 
rückgesetzt werden. Das 
Rücksetzen erfolgt mit: 

C 1300,l<Enter> 
Ausgabe C 1300,XXXX 
Eingabe 0 <Enter> 



Sollte jemand seine spiele¬ 
rische Ader mit dem Ein- 
bzw. Ausschalten der 
Peripherie-Leuchtdioden 
befriedigen wollen, so 
kann er dies durch das 
Senden eines Bits auf fol¬ 
genden Adressen: 

1100 /1100 Controller 

130E /1300 RS232 I 

150E /1500 RS232 II 

1F00 /1F00 P-Code 

- / - 

Led ein bzw. aus / Bit 
setzen zum Auslesen der 
DSR (DSR=Device Ser¬ 
vice Routine). 

Aus dieser Tabelle wird 
erkennbar, daß sowohl bei 
der Controller- als auch 
der P-Code-Karte nur ein 
Bit für das Aufleuchten 
der Led und das gleich¬ 
zeitige Auslesen gesetzt 
werden muß. 

Zum Schluß möchte ich 
noch anmerken, daß auch 
Minimemory-Besitzer den 
Debugger starten und so¬ 
mit verwenden können. 
Eine Kopie von einem 
Freund oder Bekannten 
wird sich bestimmt als 
nützlich erweisen. 

Reiner Ziegler 


ACHTUNG!!! 


DSR AUSLESEN 


Der zweite Befehl, auf den 
ich näher eingehen möch¬ 
te, bezieht sich auf das 
Auslesen der Peripherie- 
Roms (DSR). 

Die meisten Karten, u.a. 
P-Code, RS232, Controller, 
beinhalten ein Rom mit 
ihrem Betriebssystem. Die¬ 
se Karten liegen auf fol¬ 
genden CRU-Adressen. 


UNSER 

ET TELEFONSERVICE ET 

Leserbriefe und Fragen sind uns stets willkommen. 
Wir beantworten sie entweder direkt oder auf 
der Leserbriefseite 
ACHTUNG !!! 

Wie immer steht unseren Lesern unser Telefon- 
Service zur Verfügung! Jede n Djenstag vo n 15 bis 
19 U hr. Für te chnische Fragen : 0731 /3 3 220 und 
für Listings/Programme: 089 /129 80 13 
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Der Wasserplanet ,Atlan- Verfügung. Jeder Schuß 
lis‘ wird von einer Flotte kostet zehn Einheiten, 
feindlicher Raumschiffe Können Sie sich vor den 
angegriffen. 20 Gegner Angreifern nicht mehr 
trachten nacheinander, retten und bauen mit der 
den Planeten zu zerstö- SPACE-Taste einen 

ren. Sie senken sich im- Schutzschirm um die Ba- 
mer weiter hinab, bis sie sis auf, so müssen Sie da- 
die Verteidigungsbasis er- für 100 Energieeinheiten 
reicht haben. opfern. 

Sie, alsjoystickgewapp- Die Invastion ist abge- 
neter Spieler, müssen ver- wehrt, wenn keines der 
suchen, dies zu verhin- 20 angreifenden Raum- 
dern. Mit dem Faden- schiffe Ihre Basis zerstö- 
kreuz visieren Sie den ren onnte. Sollte alle 
Gegner an und zerstören 1000 Energieeinheiten 
ihn durch Betätigen des vorzeitig verbraucht wer- 
Feuerknopfes. Zu Beginn den, ist das Spielvorzei- 
des Spieles haben Sie tau- tig beendet, 
send Energieeinheiten zur Jörg Bublath 



Das Programm bietet fol- Außerdem besteht die 
gende mathematischen Möglichkeit, Zwischener- 
Operationen mit komple- gebnisse zu speichern, 
xen Zahlen: Transforma- Die Wahl der jeweilgen 
tion von Polar- in karte- math. Operationen und 
sische Koordinaten und die Art der Eingabe (z.B. 
umgekehrt, Addition, in Kart.- oder Polarkoor- 
Subtraktion, Multiplika- dinaten) erfolgt durch 
tion, Division; Bilden von Steuern eines Pfeiles in 
Wurzel, Kehrwert und einem Menüfeld. 
Konjungiert kom. Zahl. Gerhard Hübner 


100 ! ********************** 


110 ! * * 

120 ! * SPACE-2000 ~* 

130 ! * * 

140 ! * Copyright by * 
150 ! * * 

160 ! * Joerg Bublath * 

170 ! * * 

190 ! * Benoetigte Geraete * 

200 ! * TI99/4A Konsole * 

210 ! * Ext. Basic * 

220 ! * * 

260 ! * Speicherbelegung * 

270 ! * - 8544 Bytes * 

280 ! * * 


290 ! ********************** 
300 DIM M*(5) 

310 CALL CLEAR :: CALL SCREE 
N (2) 

320 CALL CHARSET :: CALL DEL 
SPRITE(ALL) 

330 F0R 1=2 T0 8 :: CALL C0L 
0R(I,16,1):: NEXT I 
340 EN=1G00 
350 SC=0 

360 ! TITEL BILD (J/N) 

370 QW=QW+1 :: IF QW>1 THEN 
770 

380 !- 

390 !DEFINITIONEN FUER 
400 ! TITELBILD 

410 !- 

420 CALL CHAR(40,"FFFFFFFF") 
430 CALL CHAR(41,RPT$("0F",8 
),33,RPT$( "F" ,16)) 

440 !- 

450 ! BILDSCHIRM AUFBAUEN 

460 !- 

470 DATA 3,4,7,4,11,4,3,10,6 
,10,3,15,6,15,3,20,11,20,3,2 
5,7,25,11,25 

480 F0R 1=1 T0 12 :: READ A 
:: read B :: call hchar(A,b, 

33.4) :: NEXT I 

490 DATA 15,4,19,4,22,4,15,1 
1,22,11,15,18,22,18,15,25,22 
,25 

500 F0R 1=1 T0 9 :: READ A : 

: READ B :: CALL HCHAR(A,B,3 
3,5):: NEXT I 

510 DATA 4,10,4,15,4,18,'4,20 
,4,25,15,11,15,15,15,18,15,2 
2,15,25,15,29 

520 FOR 1=1 TO 11 :: READ A 
:: READ B :: CALL VCHAR(A,B, 
33,8):: NEXT I 

530 DATA 4,4,7,7,16,8,19,4,3 
,13 

540 FOR 1=1 TO 5 :: READ A : 

: READ B :: CALL VCHAR(A,B,3 

3.4) :: NEXT I 




5 











550 CALL CHAR(64,“0000000000 

ooooio"):: Display at<2,4): m 

SCYPSOFT PRESENTS :“ :: DISP 

LAY AT(23,3):"COPYRIGHT BY J 
e BUBLATH" 

560 DISPLAY AT(13,4):"PRESS 
ANY KEY TO BEGIN" 

570 !- 

580 ! BLINKEN DER BANDE 

590 -- 

600 CALL COLOR(1,16,1) 

610 CALL HCHAR(1,2,41,30):: 
CALL HCHAR(24,2,41,30):: CAL 
L VCHAR(1,2,40,24)S: CALL VC 
HAR(1,31,40,24) 

620 CALL KEY(0,K,S):: IF S=1 
THEN 690 ELSE CALL COLOR(2, 
7,2) 

630 FOR 1=1 TO 40 :: NEXT I 
640 CALL KEY(0,K,S):: IF S=1 
THEN 690 ELSE CALL COLOR(2, 
2,7) 

650 FOR 1=1 TO 40 :: NEXT I 
660 GOTO 620 
670 ! ABFRAGE FUER 
680 ! SPIELANLEITUNG 
690 CALL CLEAR :: DISPLAY AT 
(7,1):"ANLEITUNG?” :: ACCEPT 
AT (7,12)VALIDATE("JN")SI2E( 
1);AN* :: IF AN$="J" THEN 17 
60 • 

700 DISPLAY AT(7,1):"INITIAL 
ISIEREN-BITTE WARTEN" 

710 !- 

720 ! DEFINITION DER 
730 ! RAUMSCHIFFE UND 
740' ! DES BILDSCHIRM- 
750 ! AUFBAUES 

760 !-- 

770 CALL CHAR(96,"208A005402 
48220000AA002280144012802401 
5004A00550203842005500A208") 
780 CALL CHAR(100,“000000000 

100010B0B0100010000000000000 
OOO 8 OOO 8 ODODO 8 OOO 8 ") 

790 CALL CHAR(104,“183830706 
0606060",105,"181C0C0E060606 
06",106,"03030C0C3030C0C0") 
800 CALL CHAR(107,“C0C030300 
C0C0303",108,"0303060606060C 
OC",109,"C0C0606060603030") 
810 M$(1)=“000040FF41033B6FF 
F6F3B0341FF4000000003FE83C0C 
0FDFEFDC0C083FE0300" 

820 M*(2)="000000033F7FFF999 
9PP7P3P03000000000000C0FCFEF 
F9999FFFEFCC0000000" 

830 M*(3)="00000000030F3FFFF 
F3FOF0300000000040E1F3EFCF8F 
0E0E0F0F8FC3E1F0E04" 


840 M$(4)="00000000003F63FFF 
F633F000000000000001C2241FCF 
8F2F2F8FC41221C0000" 

850 CALL CHAR(110,“000000000 
OFFFFOO",115,"000010381") 

860 CALL CHAR(112,"000000181 
8“,113,"00000018",114,“00000 
01") 

870 A$="000000030F1F3FFF" :: 

B$="000000C0F0F8FCFF" :: CA 
LL CHAR(118,"S0C0E0F0F8FCFEF 
F" ) 

880 CALL CHAR(33,A$,34,B$) 

890 CALL CHAR(119,"0103070F1 
F3F7FFF",120,"84422110038542 
2424428508102142842142840810 
Al42242442Al1008844221") 

900 CALL CHAR(124,"0054002A0 
114310B4B3136327879330100AA0 
054802382D0C28C1E5E0CA0C08") 
910 CALL CHAR(128,"00787C3C1 
EOFOFOFOFOF070707030301001E3 
E3C73F0F0F0F0F0E0E0E0C0C08") 
920 CALL CHAR(132,"010702030 
60F1B3B6BFF030303060E0280E04 
0C060F0D8DCD6FFC0C0C060704") 
930 CALL CLEAR 

940 CALL CHAR(116,RPT*("F",1 
6),35,RPT*("F“,16)) 

950 CALL CHAR(40,"30C0E0F0F8 
FCFEFF",41,"0103070F1F3F7FFF 
", 42,"FF99E799E799E799") 

960 FOR 1=1 TO 40 

970 !- 

980 ! BILDSCHIRMAUFBAU 

990 !- 

1000 RANDOMIZE :: CALL HCHAR 
((23*RND)+1,(3i*RND)+1,(3*RN 
D)+112):: NEXT I 
1010 CALL HCHAR(24,1,116,32) 
:: CALL HCHAR(23,7,116,18):: 

CALL HCHAR(22,7,116,18):: C 
ALL HCHAR(21,7,116,18):: CAL 
L HCHAR(20,7,116,18) 

1020 CALL HCHAR(19,23,118):: 
CALL HCHAR(19,8,119)!: CALL 
HCHAR(19,9,116,14):: CALL H 
CHAR(18,11,119):: CALL HCHAR 
(18,12,116,8) 

1030 CALL HCHAR(18,20,118):: 

CALL COLOR(11,15,1):: CALL 
HCHAR(23,1,35,6):: CALL HCHA 
R(22,1,35,6):: CALL HCHAR(21 
,1,35,6) 

1040 CALL HCHAR(20,1,33,6):: 

CALL HCHAR(20,2,34):: CALL 
HCHAR (20., 4,34> : : CALL HCHAR ( 
20,6,34):: CALL HCHAR(20,25, 
33,8):: CALL HCHAR(20,26,34) 
1050 CALL HCHAR(20,28,34):: 
CALL HCHAR(20,30,34):: CALL 
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HCHAR(20,32,34) : : CALL C0L0R 
(1,5,1) 

1060 CALL HCHAR(21,25,35,8): 
: CALL HCHAR(22,25,35,8):: C 
ALL HCHAR(23,25,35,8) 

1070 CALL HCHAR(17,17,40):: 
CALL HCHAR(17,14,41):: CALL 
HCHAR(16,15,41):: CALL HCHAR 
(16,16,40):: CALL HCHAR(17,1 
5,42,2):: CALL COLOR (2,9,-l) 
1080 EN=1000 

1090 CALL HCHAR(17,12,104):: 

CALL HCHAR(17,19,105):: CAL 
L HCHAR(16,12,108):: CALL HC 
HAR(16,19,109):: CALL HCHAR( 
15,13,106) 

1100 CALL MAGNIFY(3) 

1110 CALL HCHAR(15, 18, 107) : 

CALL HCHAR(14,14,110,4) 

1120 DISPLAY AT(21,6)SIZE(15 

):"ENERGIE:";EN 

1130 DISPLAY AT(22,6)SIZE(15 

):"SCORE :";SC 

1140 CALL SPRITE(#1,120,8,85 

,114) 

1150 CALL DELSPRITE(#2):: FO 
R 1=1 TO 90 :: NEXT I 

1160 !-- 

1170 ! ZUFAELLIGE BESTIMMUNG 
1180 ! DER GESCHWINDIGKEIT 
1190 ! UND DES AUSSEHENS 
1200 ! DES FEINDLICHEN 
1210 ! RAUMSCHIFFES 
1220 !--- 

1230 RANDOMIZE 

1240 XXX=- (INT (30*RND) + 6) 

1250 SD=INT <4*RND+i) 

1260 CALL CHAR(132,M$(SD)) 
1270 CALL SPRITE(#2,132,INT( 
13*RND)+3,(SO*RND)+1,1,2,XXX 
) 

1280 HIT=0 

1290 CALL CHAR(33,A$,34,B$) 
1300 GOSUB 1440 
1310 CALL PATTERN(#1,120):: 
CALL COLOR(#1,8) 

1320 CALL KEY(0,C2,D2):: IF 
C2=32 THEN CALL COLOR(10,11, 

l):: sch=i :: en=en-ico else 

CALL COLOR(10,1,1):: SCH=0 
1330 CALL JOYST(1,CI,Dl):: C 
ALL MOTION (Ml, - Dl*3.5, CI *3.5 
) 

1340 CALL COINC(#2,115,114,2 
0,HITS):: IF HITS THEN IF SC 
H=Q THEN CALL DELSPRITE(#2): 

: CALL SOUND(1000,-6,0):: CA 
LL HCHAR(16,15,96,2) 

1350 IF HITS=0 THEN 1400 
1360 IF HITS AND SCH=1 THEN 


1390 

1370 IF HITS THEN CALL HCHAR 
(17,14,98,4):: CALL C0L0R(9, 
9,1) :: GOTO 1600 
1380 GOTO 1400 

1390 CALL PATTERN(#2,96):: C 
ALL SOUND(500,-6,0):: FOR 1= 

l TO 50 :: next I :: goto n 
20 

1400 CALL CHAR(34,A$,33,B$) 
1410 GOSUB 1440 
1420 DISPLAY AT(21,6)SIZE(15 
):"ENERGIE:"JEN :: IF EN< =0 
THEN 1590 • 

1430 GOTO 1290 

1440 CALL JOYST(1,CI,Dl) 

1450 CALL POSITION(#2,Al,Bl) 

:: IF Al>125 THEN 1150 
1460 CALL MOTION(#1,-Dl*3.5, 
C1*3.5) 

1470 CALL KEY(1,C5,D5) : : IF 
C5=18 THEN 1520 
1480 RETURN 

1490 !- 

1500 ! SCHUSS !!! 

1510 !-- 

1520 CALL COLOR(2,9,1):: EN= 
EN-10 :: CALL C0INC(#1,#2,10 
,HIT):: IF HIT THEN CALL PAT 
TERN(#2,96):: CALL SOUND(300 
,-5,0):: SC=SC+10 :: call MO 
TION(#1,0,0) 

1530 IF HIT=0 THEN CALL PATT 
ERN(#1,100):: CALL COLOR(#1, 
9) 

1540 DISPLAY AT(22,6)SIZE(15 
): "SCORE:" ;sc 
1550 IF SC > 190 THEN 17.40 
1560 IF HIT THEN 1150 
1570 CALL JOYST(1,CI ,D1 ):: C 
ALL MOTION(#1,-Dl*3.5,CI*3.5 
) 

1580 CALL C0L0R(2,15,1):: RE 
TURN 

1590 HITS=-1 :: CALL SOUND(- 
1000,-6,0):: CALL HCHAR(16,1 
5,96,2):: CALL DELSPRITE(ALL 
):: GOTO 1370 
1600 CALL CLEAR 

1610 !- 

1620 ! NIEDERLAGE !! 

1630 !- 

1640 DISPLAY AT(7,7):"DIE FE 
INDLICHEN TRUPPEN HA-BEN DI 
CH EESIEGT": :"DEINE BASIS W 

URDE ZERSTOERT": : : :"WILLS 

T DU EINE ANDERE BASIS AUF A 
TLANTIS VERTEIDIGEN ?" 

1650 ! ---- 

1660 ! NOCHMAL ABFRAGE 
1670 !-- 
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1680 CALL DELSPRITE<ALL):: D 
ISPLAY AT(17,1);"J=JA/N=NEIN 
:■ :: accept at< 17,14)SI2E(1 
)VALIDATE("JNj n")BEEP: A$ 

1690 IF A$="J" 0R A$="j" THE 
N GOTO 310 

1700 CALL CLEAR :: END 

1710 !-- 

1720 ! SIEG !!! 

1730 !- 

1740 DISPLAY AT(7,7):"DU'HAS 

T UEBER DIE FEIND--.LICHE 

N ARMEEN GESIEGT!": :"BRAVO! 
!!!!!!! i !!!!!!! H : : : :"MOEC 
HTEST DU DIESEM PLANETENNOCH 
EINMAL HELFEN?" 

1750 CALL CHAR(124,"10101010 
10001010"):: CALL COLOR(12,1 
6,1):: GOTO 1680 
1760 CALL C0L0R(2,16,1):: CA 
LL CLEAR :.: DISPLAY AT(i,8): 

"ANLEITUNG:":TAB(8) ; "- 

-": :"DEINE AUFGABE IST ES 

EINE...BASIS AUF DEM WASSER 
PLANETEN" 

1770 DISPLAY AT(6,1):"ATLANT 
IS ZU VERTEIDIGEN": :"LENKE 
DEN CURSOR MIT DEINEM..JOYST 
ICK AUF DAS ANGREIFENDERAUMS 
CHIFF UND DRUECKE FEUER" 

1780 DISPLAY AT(12,1):"SOLLT 
EST DU DAS RAUMSCHIFF..NICHT 
TREFFEN SO KANNST DU..IM RI 
CHTIGEN MOMENT FUER.... EINIG 
E SEKUNDEN EINEN" 

1790 DISPLAY AT(16,1):"SCHUT 
ZSCHIRM AKTIVIEREN,DER DICH 
ALLERDINGS 100 ENERGIE-EINHE 
ITEN KOSTET.EIN SCHUSS KOSTE 
T NUR 10 EINHEITEN" 

1800 DISPLAY AT(20,1):"ZWANZ 

IG SCHIFFE GREIFEN.INSGE 

SAMMT AN,DANN HAST DU..SIE B 
ESIEGT":"BITTE TASTE DRUECKE 
N" 

1810 CALL KEY(0,K,S):: IF S= 
0 THEN 1810 

1820 CALL CLEAR :: GOTO 700 


Die nächste 
Ti REVUE erscheint 
am 28. Oktober 


100 

! ********************** 

110 

! * 


* 

120 

! * 

KOMPLEXE ZAHLEN 

* 

130 

! * 


* 

140 

! * 

Copyright by 

* 

150 

! * 



160 

! * 

Gerhard Huebner 

* 

170 

! * 


* 

180 

! * 


* 

190 

! * 

Bencetigte Geraete 

* 

200 

! * 

TI99/4A Konsole 

* 

210 

! * 

Ext. Basic 

* 

220 

! * 


* 

260 

! * 

Speicherbelegung 

* 

270 

! X 

5337 Bytes 

* 

280 

! * 


* 

290 

! ********************** 

300 

ON w 

ARMING NEXT 


310 

CALL 

CLEAR :: CALL COLGR 

(14, 

7,1) 

:: CALL HCHAR(5,2, 

13 


8,30):: CALL VCHAR(6,32,139) 
:: CALL VCHAR(6,2,139,1):: C 
ALL HCHAR(7,2,137,30) 

320 CALL HCHAR(20,2,133,30): 

: CALL VCHAR (21,2,137,3) .* : C 
ALL VCHAR(21,32,139,3):: CAL 
L HCHAR(24,2,137,30) 

330 ZF=10 :: ZE=i 
340 CALL CHARQ30, "COFOFCFFF 
FFCFOC",131,"0",132,"00183C7 
E7E3C1SÖ0",91,"00002442FF422 
4 ".80,"01020408102040FF") 

350 CALL CHAR(137, "FFFF", 133 
,"00000000OOOOFFFF",139,"COC 
OCOCOCOCOCOC") 

360 DISPLAY AT(1,2):"1.einga 
be von z = r s * j (im) ": " 2.einga 
be van z-r P" 

370 DISPLAY AT- (3,2) : "3. ei nga 
be der anzeige":" 4.eingabe 
aus s: " 

380 DISPLAY AT(ZF,2):"1.z = z 
(pol C kar)" :: DISPLAY AT(Z 
F+1,2):" 2. z = z konjungiet kom 
p 1 ex" 

390 DISPLAY AT(ZF+2,2):"3.z= 
1/zl" :: DISPLAY AT(ZF+3,2): 
"4.z=wurzel(zl)" :: DISPLAY 
AT(ZF+4,2):"5.z in den speie 
her 5" 

400 DISPLAY AT(ZF+5,2):"6.z= 
z 1 +z2 ,: :: DISPLAY AT(ZF + 6,2) 

:"7.z=zl-z2" :: DISPLAY AT(Z 
F + 7,2) : "3. z = zi*z2" :.- DISPLA 
Y AT(ZF+8,2):"9.z=zl/z2" 

410 ! 

420 !*#F UNKTIG. WAH 
L 

430 CALL HCHAR(ZF,3,130) 

440 CALL KEY(0,K,S):: IF S=0 
THEN GOTO 440 


8 













450 CALL HCHAR(ZF,3,131) 

460 IF K=69 THEN 2F=2F-1 :: 

IF 2F=9 THEN 2F=10 

470 IF K=3o THEN 2F=2F+1 :: 

IF 2F=19 THEN 2F=18 

480 IF K=13 THEN CALL SOUND( 

10,2000,0):: CALL HCHAR<2F,3 

,132):: CALL GCHAR(2F,4,FU): 

: GOTO 510 
490 GOTO 430 
500 ! 

510 IF FU-49 OR FU=50 OR FU= 
51 OR FU=52 OR FU=53 THEN EI 
N=1 ELSE EIN=2 
520 GOSUB 1120 

530 IF FU=49 THEN GOSUB 690 
540 IF FU=50 THEN GOSUB 750 
550 IF FU=51 THEN GOSUB 320 
560 IF FU=52 THEN GOSUB 390 
570 IF Fü=53 THEN GOSUB 640 
580 IF FU--54 THEN GOSUB 970 
590 IF FU=55 THEN A(I-1)=-A( 

l-i):: B(I -1)=-B(I“1):: gosu 

B 970 

600 IF FU=56 THEN GOSUB 1040 
610 IF FU=57 THEN C(I-i)=l/C 
<I-1):: D<l-i)=-D<l-l):: GOS 
UB 1040 
620 GOTO 430 
630 ! 

640 !** ** SPEICHER 

650 AS=A(i-n:: B3=B(l-l):: 
CS=C CI -1):: DS=D(I-1) 

660 DISPLAY AT(6,1):" s: " :: 
DISPLAY AT(6,3)SIZE(12):AS : 

: DISPLAY AT(6,15):"+J" :: D 
ISPLAY AT(6,17)SI2E(12):BS 

670 RETURN 
680 ! 

690 ! ** **POLAROKARTE 

S 

700 DISPLAY AT(23,1) 

710 DISPLAY AT(21,1):"2= H :: 

DISPLAY AT(21,3):A <I-1):: D 
ISPLAY AT(21,15):"+J" :: DIS 
PLAY AT(2i,17):B(I-i) 

720 DISPLAY AT(22,1):"2=" :: 

DISPLAY AT(22,3):C(I-1):: D 
ISPLAY AT(22,16):"P" :: DISP 
LAY AT(22,17):D(I-1) 

730 RETURN 
740 ! 

750 !** ** VORZEICHEN 

760 DISPLAY AT(23,i): , " , :: D 
ISPLAY AT(22,1):"" 

770 CALL VÜRZ(A(I-i),B(I-1), 
C(I-i),D(I-1),El,Fl,Gl,Hl) 
780 A(I~1) =Ei :: B(I-1)=F1 : 
: C(i-i)=Gi :: D(I-l)=Hi 
790 DISPLAY AT(2i,1):"2=" :: 


DISPLAY AT(21,3):A(1-1):: D 
ISPLAY AT(21,15):”+J" :: DIS¬ 
PLAY AT(21,17):B(I-1) 

800 RETURN 
810 ! 

820 !** ** KEHRWERT 

830 DISPLAY AT(23,1):" " :: D 
ISPLAY AT(22,1): " " 

840 CALL RE2I(A(I-l),B(I-1) , 
C(I-l),D(I-i),Ei,Fl,Gl,Hl) 
850 A(I-1) =E1 :: B(I-1) ==F1 : 

: c(I-1)=61 :: D(I-1)=H1 
860 DISPLAY AT(21,1):"Z= H :: 

DISPLAY AT(21,3):A(I-1):: D 
ISPLAY AT(21,15):" +J H :: DIS 
PLAY AT(21,17):B(I-1) 

870 RETURN 
880 ! 

890 !** ** WURZEL 

900 DISPLAY AT(23,1):"" :: D 
ISPLAY AT(22,1):"" 

910 ! 

920 CALL WURZ(A(I-i) ,B(I-1) , 
C(I-l),D(I-1),El,Fl,Gl,Hl) 
930 A (I -1) =ei :: B(l~l)=F.i : 

: C(I-1)=G1 :: D(l-l)=Hl 
940 DISPLAY AT(21,1):"2=" :: 

DISPLAY AT(21,3):A(I-1):: D 
ISPLAY AT(21,15):"+J" :: DIS 
PLAY AT(21,17):B(I-1) 

950 RETURN 
960 ! 

970 !** *)(- ADDIERE 

980 A(1)=A(1)+A(2):: B(1)=B( 
1)+B(2) 

990 CALL KARPOL(A(1),B(1),C( 
1),D(1)) 

1000 DISPLAY AT (23, 1) : Jl " 

DISPLAY AT(22,1): HM 

1010 DISPLAY AT (21,1) : " Z - 11 : 

: DISPLAY AT(21,3):A(1):: DI 
SPLAY AT(21,15): n +J H :: DISP 
LAY AT(21,17):B(1) 

1020 RETURN 
1030 ! 

1040 !** **MULTIPLIZI 

R . 

1050 C(i)=C(i)*C(2):: d<1)=d 
(1)+D(2) 

1060 CALL POLKAR(A(l),B(1),C 
(1) , D (1) ) 

1070 DISPLAY AT(23,1): u " 
DISPLAY AT(22,1):““ 

1080 DISPLAY AT(21,1): "Z -" : 

: DISPLAY AT(21,3):A(1):: DI 
SPLAY AT(21,15):"+J" :: DISP 
LAY AT(21,17):B(1) 

1090 RETURN 
1100 ! 

1110 !****E I N G A B E **** 
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1120 FOR 1=1 TO EIN 
1130 CALL HCHAR(2E,3,130) 
1140 CALL KEY(0,K,S):: IF S= 
0 THEN GOTO 1140 


1150 CALL HCHAR(2E,3,131) 
1160 IF K=69 THEN ZE=ZE-i :: 

IF ZE=0 THEN ZE=1 
1170 IF K=88 THEN ZE=2E+1 :: 

IF 2E=5 THEN 2E=4 
1180 IF K=13 THEN CALL SOUND 
(10,2000,0):: call gchar(2E, 
4,FE):: GOTO 1230 
1190 GOTO 1130 
1200 NEXT I 
1210 RETURN 
1220 ! 


1230 IF FE=49 THEN GOTO 1270 
1240 IF FE=50 THEN GOTO 1300 
1250 IF FE=51 THEN A(I+i)=A( 
I):: B(I+1)=B(I):: C(l+l)=C( 
I):: D(I+l)=D(I):: GOTO 1200 
1260 IF FE=52 THEN A(I)=AS : 

: B(I)=B3 :: c(I)=cs :: d <I) 

=DS :: GOTO 1200 

1270 DISPLAY AT(23,1):"Z=... 

.+ j." :: 

DISPLAY AT(22,1):"" 

1280 DISPLAY AT(21, 1) :"2=" : 
: ACCEPT AT(21,3)SIZE(12)BEE 
p:A(I):: ACCEPT AT(21,17)BEE 


P:B(I) 

1290 CALL KARPOL(A(I),B(I),C 

(I),D(I)):: GOTO 1200 

1300 DISPLAY AT(23,1):"2=... 


DISPLAY AT(22,1): " " 

1310 DISPLAY AT(21,1): H Z=" : 

: ACCEPT AT(21,3)SI2E(13)BEE 
p:c (I) :: accept at(21,17)BEE 
p:d(I) 

1320 CALL POLKAR(A(I),B(I),C 
(I),D(I)):: GOTO 1200 
1330 ! 

1340 CALL POKA(Ad) ,B(I) ,C(I 
),D(I),E(I),F(I),G(I),H(I)) 
1350 DISPLAY AT(19,1)SIZE(3) 
: M Z=" :: DISPLAY AT(19,3):G( 
I):: DISPLAY AT(19,16)SIZE(1 
):"P" :: DISPLAY AT(19,17):H 
(I) 

1360 DISPLAY AT(20,1)SIZE(2) 
: ,, z=" :: Display AT(20,3):E( 
I):: DISPLAY AT(20,15)SI2E(2 
): ” +j" :: DISPLAY AT(20,i7): 
F (I) 

1370 !*********SUB POKA***** 


** 

1380 SUB POKA(A,B,C,D,E,F,G, 
H) 

1390 IF C=0 AND D=0 THEN CAL 


L KARPOL(A,B,G,H):: E=A :: F 
=B 

1400 IF A=0 AND B=0 THEN CAL 
L POLKAR(E,F,C,D):: G=C :: H 
=D 

* 

1410 SUBEND 

1420 !*********SUB POLKAR*** 
* . 

1430 SUB POLKAR(A,B,C,D) 

1440 A=C*(C0S(D*PI/130)) 

1450 B=C*(SIN(DttPI/180)) 

1460 SUBEND 

1470 !***********SUB KARPOL* 
* 

1480 SUB KARPOL(A,B,C,D) 

1490 C=3QR(A A 2+B A 2) 

1500 IF A=0 AND B=0 THEN D=0 
:: GOTO 1560 

1510 IF A=0 AND SGN(B)=1 THE 

N D=90 :: GOTO 1560 

1520 IF A=0 AND SGN(B)=-i TH 

EN D=-90 I: GOTO 1560 

1530 IF B=0 AND SGN(A)=-1 TH 

EN D=180 :: GOTO 1560 

1540 D=ATN(B/A)*130/PI 

1550 IF SGN(A)=-1 AND SGN(B) 

=-l OR(SGN(A)=-1 AND SGN(B)= 

1)THEN D=D + 180 

1560 SUBEND 

1570 ! 

1580 !***********SUB REZI*** 
1590 SUB REZI(A,B,C,D,E,F,G, 
H) 

1600 G-i/C :: H=-D 
1610 CALL POLKAR(E,F,G,H) 
1620 SUBEND 
1630 ! 

1640 !************SUB WURZ** 
1650 SUB WURZ(A,B,C,D,E,F,G, 
H) 

1660 G=SQR(ABS(C)) 

1670 H=D/2 

1680 CALL POLKAR(E,F,G,H) 
1690 SUBEND 
1700 ! 

1710 !**********SUB VORZ*** 
1720 SUB VORZ(A,B,C,D,E,F,G, 
H) 

1730 B=-B 

1740 CALL KARPOL(A,B,G,H) 
1750 E=A :: F=B 
1760 SUBEND 


ACHTUNG! 

Neue Telefon-Nummer! 
089/1298013 Ab 1.10.85! 
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SERVICE 


RESET 

Eine Basic-Pokeliste für 
das Assemblerprogramm 
„RESET“. Benötigt 
werden das Ex-Basic Mo¬ 
dul und die 32 K RAM 
Expansion. Die Routine 
wird im Direktmoduls 
mit CALL LINK („RE¬ 
SET“) gestartet. Dieses 
Programm sucht und 
findet ein „gelöschtes“ 
Basicprogramm in der 32 
K RAM Expansion, setzt 
die notwendigen Zeige 
und startet dieses Pro¬ 
gramm automatisch. 
Damit ein ordnungsgemä¬ 
ßer Ablauf erfolgt, müs¬ 
sen einige Voraussetzun¬ 
gen erfüllt sein. Dies sind: 

1. Das Basicprogramm 
muß über mindestens 
eine Zeile mit einer 
Zeilennummer größer 
als 255 verfügen. Dies 
dürfte aber in der Re¬ 
gel kein Problem sein. 

2. Die zuersg gespeicherte 
(eingegebene) Zeile 
sollte eine Kommentar¬ 
zeile sein, da sie even¬ 
tuell verändert wird. 
Dies ist nicht immer 
identisch mit der klein¬ 
sten Zeilennummer. 
Zum Umstellen gibt 
es folgende Möglich¬ 
keiten: 

a Für Diskettenbetrieb: 

1) Eingabe einer Kom¬ 
mentarzeile mit klein¬ 
ster Zeilennummer un 
und mindestens 20 (in 
Worten zwanzig) Zei¬ 
chen. 

2) Speichern des Pro¬ 
grammes mit SAVE 
DSK1.PRGJMERGE 

3) Eingabe von NEW 

4) Eingabe von MER- 
GE DSK1.PRG 

5) Speichern des Pro¬ 
grammes mit SAVE 
DSK1.PRG 

b Alle anderen müssen 
einen umständlicheren 
Weg einschlagen: 

1) Siehe a) 1) 

2) Editieren des gesam¬ 


ten Programmes, d.h., 
nacheinander über die 
Cursortasten jede Zeile 
- anwählen und dort 
mindestens ein Zei¬ 
chen überschreiben. 
Die ENTER Taste zu 
drücken reicht nicht 
aus. 

Es versteht sich ja fast 
von selbst, daß diese 
Kommentarzeile nicht 
mehr geändert werden 
darf. Beim Eingeben neu¬ 
er Programme zuerst die 
Kommentarzeile und 
dann das restliche Pro¬ 
gramm eingeben. 

Hier nun noch eine 
kurze Routine, die ein 
versehentliches Ändern 
erschwert. Im Direktmo¬ 
dus eingeben: 

CALL PEEK (-32718, 
A,B)::CALL LOAD (A* 
25 6+B—65539,0,0) 

Zur großen Überra¬ 
schung hat die erste Zeile 
nun die Nummer 0 und 
ist daher gegen Ändern 
geschützt. Durch Eingabe 
von „RES“ erhält diese 
Zeile wieder einen nor¬ 
malen Wert. 

Peter Vorwerk 

Disassembler 

Der Disassembler ist ein 
nützliches Werkzeug für 
Minimem-Benutzer, das 
aber auch für Extended 
Basic und/oder Memory 
Expansion geeignet ist. 
Man kann damit Maschi- 
nenspiache-Routinen dis- 
assemblen und somit 
auch von Programmen, 
die mit dem Line-by-Line 
Assembler geschrieben 
sind, ein Listing erzeu¬ 
gen. Dabei werden die 
Symbole der symboli¬ 
schen Adressen und die 
Namen der Minimem Uti¬ 
lity Routinen eingesetzt. 

Natürlich kann man 
auch beliebige Betriebssy¬ 
stem-Routinen des ROM 
übersetzen. 


Außerdem können mit 
diesem Programm RAM/ 
ROM-Bereiche in hexa¬ 
dezimaler Form angezeigt 
werden, ebenso Bereiche 
im VDP-RAM. 

Als Zugabe gibt es die 
Möglichkeit, das RAM / 
ROM nach einem vierstel¬ 
ligen Hexwert zu durch¬ 
suchen. 

Zum schnelleren Ab¬ 
lauf steht zum Umrech¬ 
nen der Dezimalzahlen 
wahlweise eine Routine 
in Maschinensprache zur 
Verfügung, die jedoch 
80 Bytes im Minimem be- 
legt. 

Als Hardcopy wird ein 
80-stelliger Drucker über 
eine RS232-Schnittstelle 
benutzt. 

Nach dem Starten er¬ 
scheint ein Auswahl-Me¬ 
nü mit 6 Optionen: 

1. Disassembler allgemein 

2. Disassembler mit Sym¬ 
bolen und Utility-Na¬ 
men 

3. Auffinden eines Hex¬ 
strings 

4. Dumpen aus RAM/ 
ROM 

5. Dumpen aus VDP- 
RAM 

6. Programmende 
Nachdem eine Option ge¬ 
wählt worden ist, erfol¬ 
gen die Eingaben für 
Drucker und Maschinen¬ 
sprache-Routine (ja/nein). 
Danach werden die An¬ 
fangs- und Endadresse 
des gewünschten Berei¬ 
ches eingegeben. Nach 
Erreichen der Endadresse 
wird gefragt, ob mit der 
gleichen Option weiterge¬ 
macht oder das Pro¬ 
gramm beendet werden 
soll. 

Bis auf . Option 5 
laufen alle Optionen auch 
unter Extended Basic, al- 
lrdings ist Option 2 we¬ 
gen der fehlenden Tabel¬ 
len nicht sinnvoll. Eben¬ 
so kann die Maschinen- 
sprachroutine natürlich 
nicht geladen werden, es 


sei denn, amn hat eine 
Memexp und ändert die 
Adressen. Das Format 
der Ausgabe ist aus den 
Mustern ersichtlich. Die 
Bildschirmausgabe ist 
ähnlich (zwei Zeilen pro 
Assembler-Befehl, 3 statt 
8 2-Byte Blöcke beim 
Dump). 


Erdbeer-Paul 

Die Hauptrolle des Pro¬ 
gramms spielt Paul, der 
Zwerg. Seine Aufgabe be¬ 
steht im Pflücken von 12 
Erdbeeren. Diese kann er 
aufnehmen, indem er un¬ 
ter die Erdbeere geht und 
Taste Q gedrückt wird. 
Hat er eine Erdbeere auf¬ 
genommen, so wird 
dieses am unteren 
rechten Bildrand ange¬ 
zeigt. Die Erdbeere muß 
er dann zu dem Topf 
bringen. Steht er am 
am Topf, muß noch ein¬ 
mal die Taste S bedient 
werden, damit Paul die 
Erdbeere ablegt. Aber na¬ 
türlich gibt es auch Ge¬ 
fahren: Eine Maus in der 
unteren Etage, Spinnen 
in der oberen und eine 
Biene. Stößt Paul mit ei¬ 
nem dieser Tiere zusam¬ 
men, ist das Spiel been¬ 
det (neuer Start: Drücken 
einer Taste). Paul, hab 
aber auch eine Chance, 
denn er besitzt 5 Schwer¬ 
ter, mit diesen kann er 
alle Tiere außer der Biene 
vertreiben. Pro vertriebe¬ 
nem Tier gibt es 15 
Punkte, pro abgelegter 
Erdbeere 30 Punkte und 
6 Zusatzschwerte. Sinkt 
die Zahl der Schwerte auf 
0, dann ist das Spiel be¬ 
endet. Sind alle Erdbee¬ 
ren geerntet, beginnt eine 
neue Runde. Das Benut¬ 
zen der Schwerter erfolgt 
über Taste , :links und 
Taste. :rechts. 

Günther Krümling 
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BF EÜU >7F60 
BG EWU ? ?F66 
BY EQÜ >7F94 
GM EQU > 7FB4 
SC EQU >7FC6 
MM EQU > 7FB6 


7F66 

C£8B 

BG MOV 

RU? RIO 

7 FA 8 

04 CO 

CLR 

R0 

7Ft.fl 

0201 0001 

LI 

RI 5 1 

7F6E 

0805 7F60 

LI 

R5* BF 

7F73 

0806 0400 

LI 

RA?>0400 

7F76 

DD46 

MDVB 

K6j♦R5+ 

7F73 

06flU 7FB4 

EL 

QGN 

7F7C 

CE 04 

MOV 

R4? R8 

7F7E 

0581 

I MC 

RI 

7F80 

06R0 7FB4 

BL 

•9GN 

7F34 

0233 0001 

CI 

RcN 1 

7F88 

1605 

JNE 

BY 

7F8A 

06R0 7FC6 

BL 

•9 SC 

7F3E 

0R44 

SLfl 

R4? 4 

7F90 

06R0 7FC6 

BL 

•9SC 

7F94- 

Ort 8 4- 

BY SLR 

R4> 8 

7F96 

06h0 7FC6 

BL 

9 SC 

7F9fl 

0RC4 

SLfl 

R 4 ? 13 

7F9C 

06R0 7FC6 

BL 

•9 SC 

7 PRO 

0531 

INC 

RI 

7FR£ 

0333 0001 

CI 

R8j 1 

7FRA 

131 D 

JEQ 

>7FE£ 

7FR8 

0381 0004 

CI 

RI? 4 

7FRC 

131 fl 

J£Q' 

> 7FE2 

7 r RE 

06A0 7FB4 

BL 

•96N . 

7FB2 

1 0F 0 

JMP 

BY • ' ; - 

7FB4 

04sq 6044 

GM BLUP 

.•9NUMPEF 

7FBS 

0430 601C 

BLWP 

9XMLLNK 

7FBC 

13 0 0 

•JLE 

>7FBE 

7FBE 

CI30 834fl 

MOV 

•J C' 4 A ? F 

7FC£ 

C1C4 

MOV 

R4 ? R7 

£EC4 

045B 

B 

♦RI 1 

7m_:s 

0884 

C SRR 

R4 ? 8 

7 FC 8 

D1 0 0 

MOVB 

K Ij j P4 

7 F C fl 

0844 . 

•SRfl 

R4? 4 

7 FCC 

0334 OOOfl 

CI 

R4? 1 0 

7PD0 

1103 

JLT 

MM 

7FD£ 

0334 0007 

AI 

R4? 7 

7FD6 

0334 0030 

NM Hl 

R4? 43 

7FDR 

0R84 

SLfl 

R4? 8 

7FDC 

DD 4 4 

MOVB 

R4?♦R5+ 

7FDE 

CI 07 

MOV 

R7 ? R4 

7FE0 

043 B 

B 

♦ Rll . 

7FEc! 

U c! 0 c 7 F 6 0 

LI 

Rc? BF 

7FE6 

0430 6048 

BLWP 

QiTRASG 

7FER 

045 fl 

B 

♦RI 0 


ACHTUNG! 

Neue Telefon-Nummer! 
088/1298013 Ab 1.10.85! 


10 REM******************** 


11 REM* * 

12 REM* DISASSEMBLER * 

13 REH* Copyright by * 

14 REM* ' *H 

15 REM* Fritz-H. Mueller * 

16 REM* * 


17 REM*Benoetigte Geraste* 

18 REM* TI99/4A Konsole * 

19 REM* Minimem-Modu1 * 

20 REM*optional: Xbasic * 

21 REM* 32-K er Weiterung* 

22 REM* Drucker- * 

23 REM* Speicherbelegung * 

24 REM* 9440 Bytes * 

25 REM******************** 

26 REM 

100 CALL CLEAR 
110 CALL SCREEM(15) 

120 print 

DISASSEMBLER": : : 

130 PRINT 11 (C) F.H.MUELLE 

r 1984 

140 REM AM BOERNEKEN 1 
150 REM 3181 RUEHEN 
160 REM TEL.05367/886 
170 DIM OP*(73),UNAM*(28),UA 
D (23) , SY* (4.0) , SYA (40) 

180 DEF T X (X) = IN T(X-( (X > = i0) 
*7)+48) 

190 DEF RST(Y)=Y-INT(Y) 

200 DEF UH(X)=INT(X/16) 

210 DEF LH(X)=X-(UH(X)*16) 
220 DEF UB2=INT(B(2)/64) 

230 DEF LB2=B(2)-(UB2*64) 

240 DEF TS=INT(LB2/16) 

250 DEF SAD=B(1)*256+B(2) 

260 DATA >," "," " , 

R ,*,-,'+,, @ 

270 READ 2X*,L1*,L2*,ZK$,KA* 
,KZ*,R*,ST*,M*,PL*,LL*,KLA* 
280 DATA COC,CZC,XOR,XOP,LDC 
R,STCR,MPY,DIV 

290 DATA LIMI,IDLE,RSET,RTWP 
,CKON,CKOF,LREX 
300 DATA JMP,JLT,JLE,JEQ,JHE 
,JGT,JNE,JNC,JOC,JNO,JL,JH,J 
OP,SBO,SBZ,TB 

310 DATA LI,,AI,,ANDI,,ORI,, 
CI, , STWP,,STST, r LWPI 
320 DATA BLWP,NEG,DEC,SETO,B 
,INV,DECT,ABS,X,INC,BL,,CLR, 
INCT,SWPB, 

330 DATA SRA,SRL,SLA,SRC 
340 DATA SZC,SZCB,S,SB,C,CB, 
A,AB,MOV,MOVB,SQC,SOCB 
350 FOR 1=1 TO 78 
360 READ OP*(I) 

370 NEXT I 

380 DATA 1,3,0,8,11,16,0,0," 
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390 DATA 1,8,0,20,25,17," " 

400 GOTO 1500 

410 REM ***** COVERT BYTE TO 
HEX ***** 

420 ON AN3 GOTO. 430,450 
430 CALL LINK(“TOX$ H ,2,B <1), 
B(2),BX$> 

440 RETURN 

450 FOR 1=1 TO 2 

460 A*=CHR$<TX(B(I)/16)) 

470 H$=CHR$(TX(RST(B(I)/16)* 
16) ) 

480 AH$(I)=A*&H$ 

490 NEXT I 

500 BX$=AH$(l)kAH$<2) 

510 RETURN 

520 REM ***** CONVERT ADDRES 
S TO HEX ***** 

530 ON AM3 GOTO 540,560 

540 CALL LINK < "TOX* 1 * , 1 , ADI, B 

X*) 

550 RETURN 

560 B(1)=ADI/256 

570 B(2)=256*(RST(B(i))) 

580 GOTO 450 
590 REM 

600 REM ***** CONVERT TO DEC 
IMAL ***** 

610 REM 
620 ADO=0 
630 FOR 1=1 TO 4 
640 AAS(I)=ASC<SEG$(AXI$,I,i 
) ) 

650 IF AAS (I ) >57 V THEN 680 

660 AD(I)=VAL(CHR$(AAS(I))) 

670 GOTO 690 

680 AD(I)=AAS(I)-55 

690 ADO=ADO+ <AD (I) *16 / ' (4-1) ) 

700 NEXT I 

710 RETURN 

720 REM ***** INCR ADDRESS A 
ND PEEK 2 BYTES ***** 

730 ADR=ADR+2 

740 ADRS=ADRS+2 

750 IF ADRS>=ADRE THEN 3300 

760 IF ADR<32768 THEN 780 

770 ADR=ADR-65536 

780 IF AC = 1 THEN 860 > 

790 ON AN3 GOTO 800,820 

800 AD1=ADR 

810 GOTO 830 

820 ADI=ADRS 

830 GOSUB 520 

840 ADR$=BX$ 

850 PRINT #p:adr$;ld$; 

860 IF OPT>4 THEN 920 
870 CALL PEEK(ADR,B(1),B(2)) 
880 IF OPT< >3 THEN 930 
890 IF SADOSU THEN 730 
900 GOSUB 4060 
910 GOTO 730 


920 CALL PEEKV(ADR,B(1),B(2) 

) 

930 GOSUB 410 

940 PRINT #P:BX$;Li$; 

950 IF SYT=0 THEN 1010 

960 IF RR=1 THEN 1000 

970 CAD=ADR 

980 GOSUB 3940 

990 RETURN 

1000 GOSUB 3910 

1010 IF OPT>3 THEN 1040 

1020 RETURN 

1030 REM ***** DUMP FORMAT 
SUBROUTINE '***** 

1040 AC=1 

1050 FOR 1=1 TO 2 

1060 IF B(I)< 32 THEN 1080 

1070 IF B(I)< 95 THEN 1090 

1080 B(I)=46 

1090 BP*(I)=CHR$(B<I)) 

1100 NEXT I 

1110 BC$(BL)=BP$(1)&BP$(2) 

1120 IF BL=BM THEN 1150 

1130 BL=BL+1 

1140 GOTO 730 

1150 IF P=0 THEN 1170 

1160 PRINT #P:L2$; 

1170 FOR 1=1 TO BM 
1180 PRINT #P:BC*(I>; 

1190 NEXT I 
1200 PRINT #P. 

1210 BL=1 
1220 AC=0 
1230 GOTO 730 

1240 REM ***** REGISTER SUBR 
TN ***** 

1250 RD*=R$kSTR$(RD) 

1260 ON RIX GOTO 1270,1290,1 
310,1450 

1270 OPl$=RD$&cKO$ 

1280 RETURN 

1290 OPi$=ST$&RD$&KO$ 

1300 RETURN 
1310 RR=1 
1320 AC=1 
.1330 GOSUB 730 
1340 IF 01=47 THEN 1350 ELSE 
1380 

1350 UF=0 

1260 GOSUB 3820 

1370 IF UF=i THEN 1410 

1380 IF SF=1 THEN 1400 

1390 HX$=KLA$&ZX$ 

1400 IF RD< >0 THEN 1430 
1410 0P1$=HX$&BX$&K0$ 

1420 RETURN 

1430 OPl$=HX$kBX$&KA$&RD$&KZ 
$&K0$ 

1440 RETURN 

1450 0P1$=ST$&RD$&PL$8<:K0$ 
1460 RETURN 
1470 REM * 


» 
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* 

1480 REM ***** BEGINN HAUPT 
PROGRAMM ***** 

1490 REM * 

* 

1500 RESTORE 380 

1510 READ BL,BM,AC,TL,TC,TP, 

OPT,SYT,LD* 

1520 PRINT "WAEHLE AUS : ": : 

1530 PRINT "DISASSEMBLER = 1 

II ■ 

1540 PRINT "DISASS M/SYM = 2 

ii • 

1550 PRINT "MEMORY SCAN = 3 

II • 

1560 PRINT "DUMP.. .= 4 


1570 PRINT "DUMP VDP.= 5 

II • 

1580 PRINT "PROGRAMMENDE = 6 


1590 INPUT OPT 
1600 PRINT 

1610 IF OPT< >6 THEN 1630 
1620 END 

1630 IF OPT = 3 THEN 1690 
1640 INF'UT "DRUCKEN N=0,J = 1 
": P 

1650 IF P=0 THEN 1690 

1660 OPEN #P:"RS232"»OUTPUT 

1670 RESTORE 390 

1680 READ BL,BM,AC,TC,TP,TL, 

LD* 

1690 INPUT "ASM J=1,N=2 ":AN 
3 

1700 PRINT 

1710 IF AN3=2 THEN 1730 
1720 GOSUB 4130 
1730 CALL CLEAR 
1740 PRINT 

1750 INPUT "BEGINN,ENDE (HEX 
) ":ADR*,ADRE* 

1760 PRINT 

1770 IF LEN (ADR*) 04 THEN 17 
90 

1780 IF LEN(ADRE*)=4 THEN 18 
20 

1790 PRINT "* 4 CHAR HEXWERT 
EINGEBEN " 

1800 CALL SOUND(100,200,3) 
1810 GOTO 1750 
1820 ON OPT GOTO 1990,1960,1 
850,1990,1990 

1840 REM **** FIND WITHIN RA 
ti/ROM **** 

1850 INPUT "SUCHBEGRIFF (HEX 

) ":axi* 

1860 IF LEN(AXI*)=4 THEN 190 
0 

1870 PRINT "* SUCHBEGRIFF MU 
SS VIERSTELLIG SEIN" 


1880 CALL SOUND(100,200,3) 

1890 GOTO 1850 

1900 GOSUB 620 

1910 SU=ADO 

1920 AC=1 

1940 GOTO 1990 

1950 REM *** SETUP INITIAL A 
DDRESSES *** 

1960 IF SYT=1 THEN 1990 
1970 IF UT = 1 THEN 1990 
1980 GOSUB 3430 
1990 AXI*=ADRE* 

2000 GOSUB 620 
2010 ADRE=ADO 
2020 AXI*=ADR* 

2030 GOSUB 620 

2040 ADR=ADO 

2050 ADRS=ADO 

2060 RR=0 

2070 GOSUB 760 

2080 GOTO 2170 

2090 REM **** FORMAT ASSEMBL 

ER OUTPUT **** 

2100 PRINT #P:TAB(TL) 5 LB* j 
2110 PRINT #P:TAB(TC)iOPC*?T 
AB(TP) 5 OPI*;0P2* 

2120 RR=0 
2130 LB*=LL$ 

2140 AC=0 ' 

2150 GOSUB 730 
2160 REM **** FIND OPCODE ** 
** 

2170 OPi*=LL* 

2180 0P2*=LL* 

2190 HX*=ZX*‘ 

2200 K0*=ZK* 

2210 B1=INT(B(1)/4)+1 
2220 IF B(1)>15 THEN 2250 
2230 ON Bl GOTO 2240,2580,26 
80,2290 

2240 ON B(1)+1 GOTO 2290,229 
0,2330,2480 

2250 IF B(1)<32 THEN 2740 
2260 IF B(1)<64 THEN 2940. 
2270 GOTO 3080 
2280 REM ***** INVALID OPCOD 
E IS DATA ***** 

2290 0PC*=LE1* 

2300 PRINT #P:TAB(TC)i"DATA" 
JL1*JHX*JBX* 

2310 GOTO 2120 

2320 REM ***** FORMAT VIII 

INSTRUCTIONS ***** 

2330 OI=UH(B(2))+32 
2340 OPC*=OP*(OI) 

2350 IF OPC*=LL* THEN 2290 
2360 IF OPC*=“LWPI" THEN 238 
0 

2370 0P1*=R*&STR*<LH(B(2))) & 
KO* 

2380 AC=1 
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2390 RR=1 

2400 GOSUB 730 

2410 IF B(1)>0 THEN 2440 

2420 0P2$=STR$(B<2)) 

2430 GOTO 2100. 

2440 IF SF=0 THEN 2460 
2450 HX$=LL$ 

2460 0P2$=HX$&BX$ 

2470 GOTO 2100 

2480 REM ***** FORMAT VII IN 
STRUCTIONS ***** 

2490 IF B(2)>0 THEN 2520 
2500 0PC*=0P*<9) 

2510 GOTO 2380 
2520 F=INT(B(2)/32) 

2530 IF B(2)-(F*32)< >0 THEN 
2290 

2540 01=F + 8 
2550 OPC$=OP$(OI) 

2560 GOTO 2100 

2570 REM ***** FORMAT VI INS 
TRUCTIONS ***** 

2580 H=B(1)+43 
2590 0I=H+(UB2*4) 

2600 OPC$=OP$(OI) 

2610 IF 0PC$=LL$ THEN 2290 
2620 RD=LH(B(2)) 

2630 KO$=LL$ 

2640 RIX=TS+1 
2650 GOSUB 1250 
2660 GOTO 2100 

2670 REM ***** FORMAT V INST 
RUCTIONS ***** 

2680 OI=B (1) +55 
2690 OPC$=OP$(OI) 

2700 OPl$=R$&STR*(LH(B(2))) & 
KO$ 

2710 0P2$=STR$(UH(B<2)>) 

2720 GOTO 2100 

2730 REM ***** FORMAT II INS 

TRUCTIONS ***** 

2740 ÜI=B(1) 

2750 OPC$=OP$(OI) 

2760 IF SEG$<OPC$,1,1)= M J" T 
HEN 2790 

2770 OPl$=STR$(B(2)) 

2780 GOTO 2100 

2790 IF B(2)>127 THEN 2820 

2800 ADI=ADR+(B(2)*2)+2 

2810 GOTO 2830 

2820 AD1=ADR-((255-B(2))*2) 

2830 IF SYT=0 THEN 2900 

2840 RR=1 

2850 CAD=ADI 

2860 GOSUB 3930 

2870 IF SF=0 THEN 2900 

2880 HX$=LL$ 

2890 GOTO 2910 
2900 GOSUB 530 
2910 OPi*=HX$&BX$ 

2920 GOTO 2100 


2930 REM ***** FORMAT III/IV 


/IX 

INSTRUCTIONS ***** 


2940 

OI=INT(<B<l)-28)/4) 


2950 

OPC$=OP$(OI) 


2960 

RD1=(B(1)-(28+(01*4) ))* 

4 



2970 

RD=RD1+UB2 


2980 

IF LEN(OPC$)=4 THEN 

304 

0 



2990 

0P2S=R$kSTR$<RD) 


3000 

RD=LH(B(2)) 


3010 

RIX=TS+1 


3020 

GOSUB 1250 


3030 

GOTO 2100 


3040 

0P2*=STR$(RD) 


3050 

GOTO 3000 


3060 

REM 


3070 

REM ***** FORMAT I 

INS 

TRUCTIONS ***** 


3080 

01=UH(B(1))+63 


3090 

OPC$=OP$(01) 


3100 

BlS=B(1 ) 


3110 

B2S=B ( 2 ) 


3120 

RIX=TS+1 


3130 

RD=LH <B(2) ) 

. 

3140 

KO$=LL$ 


3150 

GOSUB 1250 


3160 

0P1S$=0P1$ 


3170 

B ( 1 ) =B1S 


3180 

B(2 ) =B2S 


3190 

TD=INT(LH <B ( 1 ))/ 4) 


3200 

B1L= ( LH ( B ( 1 ) )-(TD*4) ) *4 

3210 

RIX=TD+1 


3220 

RD=B1L+UB2 


3230 

GOSUB 1250 


3240 

0P2$=0P1* 


3250 

0 P1$=0P1S$^2K$ 


3260 

GOTO 2100 


3270 

REM * 


* 



3280 

REM ***** ENDE PROGM 

** 

*** 



3290 

REM * 


* 



3300 

PRINT #P 


3310 

PRINT 


3320 

INPUT “WEITER ? J/N 

": A 

$ 



3330 

IF A*="N“ THEN 3400 


3340 

IF P=0 THEN 3370 


3350 

RESTORE 390 


3360 

GOTO 3380 


3370 

RESTORE 380 


3380 

READ BL,BM,AC 


3390 

GOTO 1740 


3400 

IF P=0 THEN 1500 


3410 

CLOSE #P 


3420 

GOTO 1500 


3430 

REM **** EINLESEN UTILI 


TY TABLE ***** 

3440 UADR=28438 1# 
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3450 PRINT :“UTLTAB... "5 
3460 FOR 1=1 TO 28 
3470 CALL PEEK(UADR,N(1),N (2 
),N(3), N < 4), N (5),N<6) , B (1) ,B 
(2)) 

3480 FOR J=1 TO 6 
3490 NA$(J)=CHR$(N(J)) 

3500 NEXT J 

3510 UNAM$ (I) =NA$ (1) 2<NA$ (2) & 

NA$ (3) 6cNA$ (4) &NA$ ( 5) &NA* (6) 

3520 UAD(I)=SAD 

3530 UADR=UADR+8 

3540 NEXT I 

3550 UT=1 

3560 PRINT "EINGELESEN" : : 

3570 IF OPT=2 THEN 3600 
3580 RETURN 

3590 REM ***** EINLESEN SYMB 
OL TABLE ***** 

3600 SYCA=29072 
3610 SYTA=31960 
3620 SYT = 1 

3630 CALL PEEK(SYCA,B(1),B(2 
) ) 

3640 IF SAD >1 THEN 3670 

3650 SYT=0 

3660 RETURN 

3670 SYC=SAD 

3680 FOR V=1 TO SYC 

3690 CALL PEEK (SYTA,N < 1 ) ,N(2 

),B(i> ,B(2)) 

3700 FOR J=1 TO 2 
3710 S$(J)=CHR*<N<J)) 

3720 NEXT J 

3730 SY$(V)=S$(1)&S$<2) 

3740 SYA(V)=SAD 

3750 GOSUB 420 

3760 PRINT #PITAB(6)}SY$(V)i 

L1*J“EQU H iLl*jZX*iBX* 

3770 SYTA=SYTA+4 
3780 NEXT V 
3790 PRINT #P 
3800 RETURN 

3810 REM **** SCAN UTLTAB ** 
** 

3820 IF UT=0 THEN 3860 
3830 FOR 1 = 1 TO 28. 

3840 IF SAD=UAD<I)THEN 3870 
3850 NEXT I 
3860 RETURN 
3870 BX$=UNAM*(I> 

3880 HX*=KLA$ 

3890 UF=1 
3900 RETURN 

3910 REM **** SCAN SYMTAB ** 
** 

3920 CAD=SAD 
3930 SF=0 

3940 FOR 1=1 TO SYC 

3950 IF CAD=SYA(I)THEN 3980 

3960 NEXT I 


3970 RETURN 
3980 SF=1 

3990 IF RR=i THEN 4020 
4000 LB$=SY$<I) 

4010 RETURN 
4020 BX*=SY*(I) 

4030 RR=0 
4040 GOTO 3880 

4050 REM ***** PRINT GEF.SUC. 
HBEGIFF **** 

4060 ADI=ADR 
4070 GOSUB 420 
4080 SU$=BX$ 

4090 GOSUB 530 

4100 print #p:bx$;li$;zx$;su 

$ 

4110 GOTO 730 

4120 REM ***** TEST U LADEN 
ASM PROG ***** 

4130 DATA 84,79,88,36,32,32, 
127,102 

4140 PAD=32760 
4150 RESTORE 4130 
4160 FOR 1=0 TO 3 
4170 READ A 

4180 CALL PEEK(PAD+I,NM) 

4190 IF NMOA THEN 4220 
4200 NEXT I 
4210 RETURN" 

4220 PRINT "** TOX$ PGM NICH 
T GELADEN. **" 

4230 PRINT "LADEN BELEGT >7F 
60 BIS >7FF0 " 

4240 PRINT "UND REF/DEF TABL 
E >7FF8 " 

4250 INPUT "OK? J/N " : AN$ 
4260 IF AN$="N" THEN 4270 EL 
SE 4290 
4270 AN3=2 
4280 RETURN 

4290 DATA 194,139,4,192,2,1, 
0,1,2,5,127,96,2,6,4,0,221,7 
0,6,160 . 

4300 DATA 127,180,194,4,5,12 

9,6,160,127,180,2,136,0,1,22 

,5,6,160,127,198 

4310 DATA 10,68,6,160,127,19 

8,10,132,6,160,127,198,10,19 

6,6,160,127,198,5,129 

4320 DATA 2,136,0,1,19,29,2, 

129,0,4,19,26,6,160,127,180, 

16 240,4,32 

4330 DATA 96,68,4,32,96,28,1 
8,0,193,32,131,74,193,196,4, 
91,8,132,209,0 

4340 DATA 8,68,2,132,0,10,17 
,2,2,36,0,7,2j36,0,48,10,132 
, 221,68 

4350 DATA 193,7,4,91,2,2,127 
,96,4,32,96,72,4,90 
4360 LP=7 
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4370 RESTORE 4130 
4380 FOR 1=0 TO LP 
4390 READ BY 
4400 CALL LOAD(PAD+I,BY) 

4410 NEXT I 

4420 IF LP=i33 THEN 4470 

4430 PAD=32614 

4440 LP=133 

4450 RESTORE 4290 

4460 GOTO 4380 

4470 PRINT 

4472 CALL LOAD(28702,127,248 
) 

4480 RETURN 
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i 

********************** 

ü 

i 

* 


* 

12 

i 

* 

RESET 

* 

13 

i 

* 


* 

14 

; 

* 

Copyright by 

* 

15 

i 

* 


* 

16 

i 

* 

■ Peter Vorwerk 

* 

17 

i 

* 


* 

18 

i 

* 


* 

19 

; 

* 

Benoetigte Gersete 

* 

20 

; 

* 

TI99/4A Konsole 

* 

21 

| 

* 

Ext. Basic 

* 

22 

; 

* 

32-K Erweiterung 

* 

23 

i 

* 

* 

26 

i 

* 

Speicherbelegung 

* 

27 

| 

* 

1599 Bytes 

* 

28 

i 

* 


* 

29 

| 

********************** 


30 ! 

100 RESTORE 350 :: FOR 1=1 T 

o 10 :: read CH<i):: next i - 

110 RESTORE :: FOR 1=1 TO 10 

:: sum=0 :: for j=i to 16 : 

: read a :: sum=sum+a :: nex 
t J 

120 IF SUMOCH(I)THEN PRINT 
"* FEHLER IN ZEILE H i1*10+130 
:: CALL SOUND(100,110,0):: 
STOP 

130 NEXT I 

140 PRINT M ALLES O.K.":" JE 
TZT WIRD GEPOKED" 

150 RESTORE 
160 ADR=15398 
170 CALL INIT 

180 READ A : : IF AO-i THEN 
CALL LOAD(ADR,A):: ADR=ADR+1 
:: GOTO 180 

190 CALL LOAD(8194,60,186,63 
,248) 

200 FOR 1=16376 TO 16383 :: 
READ A :: CALL LOAD(I,A):i N 
EXT I 

210 DATA 0,99,2,224,60,0,2,1 
,255,216,6,65,6,65,216,49 
220 DATA 60,36,216,49,60,34, 
216,49,60,32,152,32,60,36,60 
,38 

230 DATA 22,244,152,32,60,34 
,60,38,22,240,152,32,60,32,6 
0,38 

240 DATA 22,236,200,1,60,36, 
2,33,0,2,216,49.60,34,216,49 
250 DATA 60,35,2,33,0,2,216, 
49,60,32,216,49,60,33,152,32 
260 DATA 60,32,60,36,17,13,1 
52,32,60,32,60,34,21,242,17, 
4 

270 DATA 152,32,60,33,60,35, 
20,237,200,32,60,32,60,34,16 
,233 

280 DATA 6,96,60,35,200,32,6 
0,36,131,49,200,32,60,34,128 
,51 

290 DATA 216,32,60,39,131,35 
,216,32,60,38,131,124,2,224, 
131,224 

300 DATA 4,96,0,112,255,0,25 
5,0,255,0,255,0,255,0,255,0 
310 DATA -1 

320 REM NAMENSTABELLE: 

330 DATA 82.69,83,69,84,32,6 
0.40,0,0,0,0,0,0,0,0 
340 REM PRUEFSUMMEN 
350 DATA 1266,1190,1278,1216 
,1031,872,1296,1210,1695, 174 
2 
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10 REM******************** 

11 REM* * 

12 REM* ERDBEER-PAUL * 

13 REM* Copyright by * 

14 REM*Gunther Kraemling* 

15 REM* • * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 6194 Bytes * 

25 REM******************** 

26 REM 

200 CALL CLEAR 

210 CALL CHAR(33,"FFFFFFFFFF 
FFFFFF") 

220 CALL CHAR(34,"FFFFFF") 

230 CALL CHAR(40,"FFFFFFFFFF 
FFFFFF" ) 

240 CALL CHAR(58,"7E5A7E18FF 
182442") 

250 CALL CHAR(59,"00007E5AFF 
99A5A5") 

260 CALL CHAR(64,"060C9C4830 
080808") 

270 CALL CHAR(72,"0C1E1E0EE4 
BFFFOE " ) 

280 CALL CHAR (80,"3C243C243C 
243C24") 

290 CALL CHAR(88,"00000C0201 
2D7EFE") 

300 CALL CHAR(89,"187E181818 
3C7EFF") 

310 CALL CHAR(96,"3F3F070F1F 
3F7FFF") 

320 CALL CHAR(97,"FCFCE0F0F8 
FCpEFF") 

330 CALL CHAR(98,"FFFFFFFFFF 
7F3F1F") 

340 CALL CHAR(102,"FFFFFFFFF 
FFEFCF8") 

350 CALL CHAR(106,"0000004CF 
C40 " ) 

360 CALL CHAR(107,"000000023 
F02") 

370 CALL CHAR(120,"0E1F3F3F1 
EOE") 

380 CALL CHAR<128,"0000387E7 
E7E3C18") 

390 CALL SCREEN(7) 

400, CALL C0L0R( 1,3,1) 

410 CALL COLOR(2,14,1) 

420 CALL COLOR(3,2,1) 

430 CALL COLOR(4,2,1) 

440 CALL COLOR <5,3,1) 

450 CALL C0L0R(6,12, 1) 

460 CALL COLOR(7,11,1) 

470 CALL COLOR(8,15,1) 

480 CALL COLOR(9,6,1) 

490 CALL COLOR(10,6,1) 

500 CALL COLOR(11,6,1) 


510 CALL COLOR<12,9,1) 

520 CALL COLOR(13,9,16) 

530 CALL HCHAR(3,1,40,32) 
540 CALL HCHAR(20,1,33,32) 
550 CALL HCHAR(8,1,40,16) 
560 CALL VCHAR(9,16,40,9) 
570 CALL HCHARdO, 17,34,3) 
580 CALL HCHARdO,21,34,7) 
590 CALL HCHARdO,29,34,4) 
600 CALL HCHAR(15,1,34,4) ' 

610 CALL HCHAR(15,7,34,7) 
620 CALL HCHAR(15,15,34) 

630 CALL HCHAR(15,17,34) 

640 CALL HCHAR(15,19,34,11) 
650 CALL HCHAR(15,31,34,2) 
660 CALL HCHAR(18,5,34,2) 
670 CALL VCHAR(10,20,80,4) 
680 CALL VCHAR<10,28,80,4) 
690 CALL VCHAR(15,14,80,4) 
700 CALL VCHAR(15,18,80,4) 
710 CALL VCHAR(15,30,80,4) 
720 CALL VCHAR(16,5,96) 

730 CALL VCHAR(16,6,97) 

740 CALL VCHAR(17,5,98) 

750 CALL VCHAR(17,6,102) 

760 HP=0 
770 B=24 
780 C=32 
790 X=19 
800 Y=3 
810 A=7 
820 P=0 
830 D=4 
840 E=24 
850 F=5 

860 R=24 

861 U=0 

870 FOR 1=19 Tü 31 STEP 3 
880 CALL HCHAR(8,1,64) 

890 CALL HCHAR(8,1-1,120) 
900 NEXT I 

910 CALL HCHAR(13,19,64) 

920 CALL HCHAR(13,18,120) 
930 CALL HCHAR(13,23,64) 

940 CALL HCHAR(13,22,120) 
950 CALL HCHAR(13,26,64) 

960 CALL HCHAR(13,25,120) 
970 CALL HCHAR(13,31,64) 

980 CALL HCHAR(13,30,120) 
990 FOR 1=21 TO 27 STEP 3 
1000 CALL HCHAR(18,1,64) 
1010 CALL HCHAR(18,1-1,120) 
1020 NEXT I 

1030 CALL HCHAR(14,A,59) 
1040 CALL HCHAR(14,B,59) 
1050 CALL HCHAR(9,R,59) 

1060 CALL HCHAR(19,C,88) 
1070 CALL HCHAR(D,E,72) 

1080 GOSUB 2870 
1090 GOSUB 2910 
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liOO 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

0 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1511 

1512 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 


GOSUB 2950 

CALL HCHAR(X,Y,58) 

CALL KEY(0,K,S) 

IF S=0 THEN 1570 
IF K< >68 THEN 1220 
IF Y=32 THEN 1590 
CALL GCHAR(X,Y+1,M) 

IF M=0 THEN 1200 
IF M=40 THEN 1590 
CALL HCHAR(X,Y,32) 

Y=Y +1 

GOTO 1570 

IF K< >83 THEN 1310 

IF Y=1 THEN 1590 

IF (Y=7)*(X=14)THEN 143 

CALL GCHAR(X,Y-l,M) 

IF M=0 THEN 1260 
IF M=40 THEN 1590 
CALL HCHAR(X, Y ,32) 

Y=Y- 1 

GOTO 1570 

IF K< >69 THEN 1370 

CALL GCHAR(X-i,Y,M) 

IF M< >80 THEN 1590 
CALi HCHAR(X,Y,32) 

X=X-5 

GOTO 1570 ' 

IF K< >88 THEN 1590 
CALL GCHAR(X+1,Y,M) 

IF M<>80 THEN 1590 
CALL HCHAR(X,Y,32) 

X=X + 5 

GOTO 1570 - 

IF N=0 THEN 1570 

FOR 1=1 TO 3 

CALL SOUND(150, -1,6) 

NEXT I 

P=P+30 

GOSUB 2870 

F = F + 6 

GOSUB 2910 
N=0 

U=U+1 s 

IF U=12 THEN 861 
CALL HCHAR <21,27,32) 
CALL HCHAR <14,6,120) 
CALL HCHAR(14,6,32) 

CALL HCHAR(15,5,120) 
CALL HCHAR(15,5,32) 

CALL HCHAR(X,Y,58) 

CALL SOUND(20,600,6) 

IF K< >81 THEN 1660 
CALL GCHAR < X-1,Y,M) 

IF MO120 THEN 1660 
CALL HCHAR < X-1,Y,32) 
CALL HCHAR(21,27,128) 
N=1 

CALL SOUND(50,2000,5) 

IF K< >46 THEN 1800 
IF Y=32 THEN 2120 


1680 CALL GCHAR(X,Y+l,M) 
1690 IF M=40 THEN 2120 

1700 IF M=32 THEN 1760 
1710 CALL HCHAR(X,Y+l,106) 
1720 F=F-1 

1730 CALL HCHAR(X,Y+l,32) 
1740 GOTO 1930 
1750 F=F-1 

1760 CALL HCHAR(X,Y+l,106) 
1770 F=F-1 

1780 CALL HCHAR(X,Y+1,32) 
1790 GOTO 2100 
1800 IF K< >44 THEN 2120 
1810 IF Y=1 THEN 2120 
1820 CALL GCHAR(X,Y-1,N) 
1830 IF M=40 THEN 2120 
1840 IF M=32 THEN 1890 
1850 CALL HCHAR(X,Y-l,107) 
1860 F=F-1 

1870 CALL HCHAR(X,Y-l,32) 
1880 GOTO 1930 
1890 CALL HCHAR(X,Y-l,107) 
1900 F=F-1 

1910 CALL HCHAR (X, Y -1,32 ). 
1920 GOTO 2100 
1930 IF X< >19 THEN 1970 
1940 C=32 

1950 CALL HCHAR(19,C,88) 
1960 GOTO 2060 
1970 IF X< >9 THEN 2010 
1980 R=32 

1990 CALL HCHAR(9,R,59) 
2000 GOTO 2060 
2010 IF Y<16 THEN 2050 
2020 B=32 

2030 CALL HCHAR(14,B,59) 
2040 GOTO 2060 
2050 A=1 

2060 CALL HCHAR(14,A,59) 
2070 CALL S0UND(150,110,6) 
2080 P=P+15 
2090 GOSUB 2870 
2100 GOSUB 2910 
2110 IF F=0 THEN 2650 
2120 IF X< >19 THEN 2220 
2130 IF Y<C THEN 2170 
2140 C=C+1 

2150 CALL HCHAR(19,C-1,32) 
2160 GOTO 2190 
2170 C=C-1 

2180 CALL HCHAR(19,C+1,32) 
2190 CALL HCHAR(19,C,88) 
2200 IF C=Y THEN 2650 
2210 GOTO 1120 
2220 IF X< >9 THEN 2500 
2230 IF V>R THEN 2270 
2240 R=R-1 

2250 CALL HCHAR(9,R+1,32) 
2260 GOTO 2290 
2270 R=R+1 
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2280 CALL HCHAR<9,R-1,32) 
2290 CALL HCHAR(9,R,59) 

2300 IF R=Y THEN 2650 

2310 IF Y>E THEN 2380 

2320 CALL GCHAR(D+1,E-1,M) 

2330 IF (M=32)+(M=58)THEN 23 

40 ELSE 2440 

2340 D=D+1 

2350 E=E-1 

2360 CALL HCHAR(D-1,E+1,32) 

2370 GOTO 2470 

2380 CALL GCHAR(D+1,E+1,M) 

2390 IF <M=32)+(M=58)THEN 24 

00 ELSE 2440 

2400 D=D+1 

2410 E = E +1 

2420 CALL HCHAR(D-1,E-l,32) 

2430 GOTO 2470 

2440 CALL HCHAR(D,E,32) 

2450 D=4 
2460 C=24 

2470 CALL HCHAR(D,E,72) 

2480 IF <E=Y)*(D=X)TREN 2650 
2490 GOTO 1120 
2500 IF Y<16 THEN 2600 
2510 IF Y< B THEN 2550 
2520 B=B +1 

2530 CALL HCHAR(14,B-1,32) 
2540 GOTO 2570 
2550 B=B-1 

2560 CALL HCHAR(14,B+1,32) 
2570 CALL HCHAR(14,B,59) 

2580 IF B = Y THEN 2650 
2590 GOTO 1120 
2600 A=A +1 

2610 CALL HCHAR(14,A-1,32) 
262.0 CALL HCHAR (14 , A, 59) 

2630 IF A=Y THEN 2650 

2640 GOTO 1120 

2650 CALL HCHAR(X,Y,89) 

2660 FOR 1=70 TO 100 

2670 CALL SOUND(10,210-I,5) 

2680 NEXT I 

2690 FOR 1=1 TO 500 

2700 CALL KEY(0,K,S) 

2710 IF SOO THEN 2750 
2720 NEXT I 
2730 CALL CLEAR 
2740 END 

2750 CALL HCHAR(X,Y,32) 

2760 CALL HCHAR(14,A,32) 

2770 CALL HCHAR(14,B,32) 

2780 CALL HCHAR(9,R,32) 

2790 CALL HCHAR(19,C,32) 

2800 CALL HCHAR(D,E,32) 

2810 CALL HCHAR(21,27,32) 
2820 CALL HCHAR(23,13,32,5) 
2830 CALL HCHAR(24,13,32,5) 
2840 IF P< =HP THEN 770 
2850 HP=P 
2860 GOTO 770 


2870 U$= M score>"fi<3TR$(P) 

(I 

2880 V=23 

2890 W=6 

2900 GOTO 2980 

2910 U$= "swor ds > " 8<STR$ (F) &" 

ii 

2920 V=24 
2930 W=5 
2940 GOTO 2980 
2950 U$= " h ighscore > "&cSTR$ (HF 
) &" " 

2960 0=22 
2970 W=2 

2980 FOR 1=1 TO LEN(US) 

2990 Z=ASC(SEGS(US,1,1)) 

3000 CALL HCHAR(0,W,Z) 

3010 W=W+1 
3020 NEXT I 
3030 RETURN 


BÖRSE 


Verkaufe Module, Disketten, Kassetten für TI. 
Pochner, Brunhildstr. 31, 5300 Bonn 2 


Achtung: Tl-Uscrü Suche Kontakt zu anderen 
Usern zum Austasuch von Tips und Programmen. 
Suche auch Sports, und Flugsimulationen in X 
Basic. Preis auf Vereinbarung. Ingo Lachner, Wil.- 
Raabe-Str. 29, 851 Fürth/Bay. (PS ohne 32K) 


Verkaufe TI-99/4A+Ext. Basic + Recorder + Joy¬ 
stick + Joy. Adapt. + 100 Progr. (z.B. Q-Bert) 

+ 3 Bücher + Alligator Mix + Ect. Ba. Lernpro¬ 
gramm + 4 TI-Revue + 1 Tl-Speciai für nur 500,— 
Tel. 09741/36 54 

Original TI-Kass. (Adventure) Voodoo Castle — 
Adventureland — The golden Voyage — Thost 
Town — Savage Island Series — je DM 24,— 

ExB: Sortierprogramm SORT 500 in deutsch 
Orig. Kass. DM 25,—. Krummrey, Lipschitzallee 
71, 1000 Berlin 47 


Verk. Buchungsjournal 150,—, TI-Basic Tutor . 
(Cass.) 10,—, Rechnungsstellung, Lagerverwal¬ 
tung je 80,— Modul Statistik 40,—, Datenverw. 

+ Anal. 75,—, Vokabeltrainer (Cass.) 10,— Connect 
Four (Mod.) 20,-. Tel. 0711/71 92 67, R. Unruh 


Verk. 32k-Ext. durchgef. Bus + Centron, Sprach- 
synthes. Extended Basic Modul, versch. Spiel 
Module, Literatur. Angebote ab 20 Uhr. Tel. 
0211/733 26 76 


Tausche Centronics-Interface gegen RS232-Inter- 
face. Sind Sie interesiert? Dann rufen Sie mich 
doch an: 0201/53 06 87 


TI 99 4A komplettes Symste: Box, Disk, 32K, 

RS, Speech, Drucker, XB, E/A, MM, TE II und vie¬ 
les mehr! Software + Bücher satt! VB 2800,— 
09321-4636 


Verkaufe: TI 99/4A + Exbasic + TI Joystics + 
32 K-CMOS Ramkarte + Rec. Kabel + deut. Ex- 
Basicanleitung. Preis: VS. Tel. 02871/66 38 
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> 1710 — Textdaten der 
Erklärung 





Soft-Plot 

Soft-Plot dient zur 
schnellen Erstellung 
einfarbiger Graphiken 
und mehrere Graphik- 
Funktionen erleichtern 
dabei die Arbeit. 

1. Radier-Funktionen: 
löscht jeweils ein 4*4 
Dots großes Quadrat 

2. _Vergrößern: 4-fache 
Vergrößerung des Zei¬ 
chens. 

3. Kreis-Funktion: Plot- 
tet Kreise mit beliebigen 
Radien. 

4. Linien-Funktion: Plot- 
tet eine Linie zwischen 
Anfangs- und Endpunkt. 
Gleichmäßige Punktever¬ 
teilung. 

5. Char-Funktion: Kopie¬ 
ren eines Zeichens, um 
freie Zeichen zu sparen. 

6. Lösch-Funktion: 
Löscht den Bildschirm 
und setzt alle Zeichen 
wieder auf „0“. 

7. Ausdruck: Programm 
Ende. Ausdruck des 
Hexcodes sowie der Posi¬ 
tion D. Zeichen. 

Ist der Zeichenvorrat er¬ 
schöpft, kann man in den 
gesetzten Zeichen nach- 
plotten. 


Das Programm erklärt 
sich im wesentlichen 
selbst — will man die Er¬ 
klärung jedoch weglassen, 
sind folgende Zeilen zu 
löschen: 

> 220 

> 240 

> 1550 bis Ende 

> 170 — Einleitung. 

> 300 — Bildschirm Auf¬ 
bau 

> 450 — Option: Vergrö¬ 
ßern 

> 510 — Option: Radie¬ 
ren 

> 610 — Option: Linien 
ziehen. 

> 630 — Option: Kreise 
zeichnen 

> 730 — Option: Zei¬ 
chen plazieren 

> 760 — Unterprogramm 
Linie 

> 900 — Unterprogramm 
Plotten 

> 1170 — Steuerung des 
Zeichenstiftes. 

> 1230 - Wahl der Op¬ 
tionen 

> 1420 — Anzeige der 
Anzahl freier Zeichen 

> 1490 — Ausdruck der 
Zeichen und Programm¬ 
ende. 

> 1550 — Erklärung des 
Programms 


3x3 Matrix 


Habt Ihr schon mal nei¬ 
disch auf andere Compu¬ 
tersysteme geschaut, in 
deren Betriebssprache so¬ 
gar Matrizenbefehle inte¬ 
griert sind? 

Für einen einfachen 
Befehl in der Text¬ 
verarbeitung, z.B. 100 
MAT A=RxS, müßt Ihr in 
TI- oder Ext.-Basic schon 
ein ganzes Programm 
schreiben, andere Befehle 
wie MAT READ, MAT 
INPUT usw. sind eben¬ 
falls nur sehr umständ¬ 
lich in die Sprache des 
TI99 zu übersetzen. Mit 
diesem Programm wol¬ 
len wir Euch zeigen, 
wie Ihr Euch MAT-Be- 
fehle für Euren TI schrei¬ 
ben könnt. Es kann 3 
MAT-Statements in Ver¬ 
bindung mit einer 3x3 
Matrix realisieren. 

1.) MAT A=BxC, 2. MAT 
A=B+C 3.) MAT A=INV 
(B). 

In die Felder der Ma¬ 
trizen dürft Ihr allerdings 
nur bis zu 3-stellige Zah¬ 
len (incl. Nachkomma¬ 
trennzeichen) eingeben. 
Dabei müßt Ihr darauf 
achten, daß das Ergebnis 
höchstens vier Stellen be¬ 
sitzt, sonst liefert Euch 
der Computer nur Stern¬ 
chen. 

Ein Menü führt Euch 
durch das Programm. 

Habt Ihr etwas 
Ahnung von Matrixopera¬ 
tionen, so seht Euch die¬ 
ses Listing genau an. 
Wenn Ihr das Prinzip ver¬ 
standen habt, dürfte es 
Euch eigentlich nicht 
schwer fallen, das Pro¬ 
gramm beliebig zu erwei¬ 
tern. Neidische Blicke auf 
andere Systeme gehören 
damit der Vergangenheit 
an. 

Chr. Villwock 
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100 

1 

********************** 

110 

1 

* 


* 

120 

I 

* 

3X3 Matrix 

* 

130 

1 

* 

Copyright by 

* 

140 

1 

* 

Christian Villwock 

* 

150 

J 

* 


* 

160 


* 

Bearbeitet vom 

* 

170 

1 

* 

Team des 

* 

180 


* 

Aktuell Verlages 

* 

190 

1 

* 

Muenchen 

* 

200 

1 

* 


* 

210 

1 

* 

Benoetigte Geraete 

* 

220 

1 

* 

TI99/4A Konsole 

* 

230 

1 

* 

Ext. Basic 

* 

240 

1 

* 


* 

270 

j 

* 

Speicherbelegung 

* 

280 

1 

* 

6756 Bytes 

* 

290 

1 

********************** 

295 

300 

1 

CALL CLEAR :: CALL SCREE 

N (2): 

• 

□N WARNING NEXT :: 

ON 


BREAK NEXT 

310 FOR 1=1 TO 13 :: CALL CO 
LOR <1,16,1):: NEXT I 
320 CALL CHAR(120,"3C4299A1A 
199423C") 

330 CALL COLOR(14,9,9) 

340 R=3 

350 M$="x 1984" 

360 GOSUB 660 
370 R=5 

380 M$="PROGRAMM VON" 

390 GOSUB 660 
400 R=7 

410 M$="CHRISTIAN VILLWOCK" 
420 GOSUB 660 
430 R=9 

440 M*="- 

_ N 

450 GOSUB 660 
460 R=10 

470 M$="3 *3MATRIZE 
N" 

480 GOSUB 660 
490 R=11 

500 M$="--- 

_ H 

510 GOSUB 660 
520 R=13 
530 M$="FUER" 

540 GOSUB 660 
550 R=15 

560 M*="TI REVUE LESER" 

570 GOSUB 660 
580 R=17 
590 M$="UND " 

600 GOSUB 660 
610 R=19 

620 M$="ALLE ANDEREN" 

630 GOSUB 660 

640 FOR 1=1 TO 1000 :: NEXT 


650 GOTO 720 

660 C=16-LEN<M$)/2 

670 FOR 1=1 TO LEN(M$) 

680 CALL HCHAR(R,C+1,136) " 

690 CALL HCHAR(R,C+I,ASC(SEG 
*<M$,I,1>)) 

700 NEXT .1 
710 RETURN 

720 CALL CLEAR :: CALL SCREE 
N (4) 

730 FOR 1=1 TO 14 :: CALL CO 

L0R(I,2,1):: NEXT I 

740 ! UMKEHRMATRIX 

750 DEF AC=(A22*A33)-(A32*A2 

3) 

760 DEF BC=(-l)*<<A21*A33)-< 
A31*A23) ) 

770 DEF CB=(A2i*A32)-(A31*A2 
2) 

780 DEF DC=(-1)*<(A12*A33)-( 
A32*A13) ) 

790 DEF EC=(A11*A33)-(A31*Ai 
3) 

800 DEF FC=<-1)*<(Ail*A32>-< 
A3i*A12)) 

810 DEF GC=(A12*A23)-(A22*A1 
3) 

820 DEF HC=(-1)*(<Ali*A23)-( 
A21*A13)) 

830 DEF IC=(Aii*A22)-(A2i*Al 
2) 

840 DEF DET=(A11*A22*A33)+(A 
12*A23*A3i)+(A21*A32*A13)-(A 
13*A22*A31)-(A11*A23*A32)-(A 
33*A12*A21) 

850 ! MULTIPLIKATION 

860 DEF AA=(A11*B11)+<A12*B2 

1) +(A13*B31) 

870 DEF BB=(A11*B12)+(A12*B2 

2) +(A13*B32) 

880 DEF CC=(A11*B13)+(A12*B2 

3) +<A13*B33) . 

890 DEF DD=(A21*B11)+(A22*B2 
1>+<A23#B31) 

900 DEF EE=(A21*B12)+(A22*B2 

2) +(A23*B32) 

910 DEF FF=(A21*B13)+(A22*B2 

3) +(A23*B33) 

920 DEF GG=(A31*B11)+<A32*B2 

1) +(A33*B31) 

930 DEF HH=(A31*B12)+(A32*B2 

2) +(A33*B32) 

940 DEF II=(A31*B13)+(A32*B2 

3) +<A33*B33) 

950 ! ADDITION 
960 DEF AB=Ai1+B11 
970 DEF BA=A12+B12 
980 DEF CA=A13+B13 
990 DEF DA=A21+B21 
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1000 DEF EA=A22+B22 

1010 DEF FA=A23+B23 

1020 DEF GA=A31+B31 

1030 DEF HA=A32+B32 

1040 DEF IA=A33+B33 

1050 ! ZEICHEN FUER TABELLE 

1060 CALL CHARdOO, "OOOOOOFF 

FF“, 101,"030303030303FFFF",1 

02,"OOOOOOOOOOOOFFFF",104,"0 

303037F7F030303“,103,RPT*(“0 

3",8) ) 

1070 CALL CHAR(105,"18181818 
1818FFFF",106,“181818FFFF181 
818",107,RPT$( H 18",8)) 

1080 CALL C0L0R(9,2,1,10,2, 1 

) 

1090 ! MENUE 

1100 CALL CLEAR :: CALL SCRE 
EN (4) 

1110 DISPLAY AT(5,8):"3*3 MA 
TRIZEN" 

1120 DISPLAY AT<7,6):"- 


1130 DISPLAY AT(9,7):“PROGRA 
MMWAHL : H 

1140 DISPLAY AT(11,7):"1 => 
MULTIPLIKATION" 

1150 DISPLAY AT(13,7)I"2 => 
ADDITION" 

1160 DISPLAY AT(15,7):"3 => 
UMKEHRMATRIX" 

1170 DISPLAY AT(17,7):"4 => 
ENDE" 

1180 DISPLAY AT(20,7):"BITTE 
WAEHLEN SIE :" 

1190 ACCEPT AT(22,7)VALIDATE 

("1234")BEEP SIZE(1):WAHL 

1200 IF WAHL=1 THEN 1240 ELS 

E IF WAHL=2 THEN 1240 ELSE I 

F WAHL=3 THEN 1240 ELSE IF W 

AHL=4 THEN 2590 

1210 GOTO 1190 

1220 ! ABFRAGE Ml 

1230 XYZ=1 

1240 GOSUB 2040 

1250 CALL SCREEN(6) 

1260 DISPLAY AT(3,7):"lg..1. 

. k . . 2. . k . . 3. . k " 

1270 ACCEPT AT(6,10)VALIDATE 

(NUMERIC)BEEP SIZE(3):A11 

1280 ACCEPT AT(6,16)VALIDATE 

(NUMERIC)SIZE(3):A12 

1290 ACCEPT AT(6,22)VALIDATE 

(NUMERIC)SIZE(3):A13 

1300 ACCEPT AT(9,10)VALIDATE 

(NUMERIC)BEEP SIZE(3):A21 

1310 ACCEPT AT(9,16)VALIDATE 

(NUMERIC)SIZE(3):A22 

1320 ACCEPT AT(9,22)VALIDATE 

(NUMERIC)SIZE(3):A23 

1330 ACCEPT AT(12,10)VALIDAT 


E(NUMERIC)BEEP SIZE(3):A31 
1340 ACCEPT AT(12,16)VALIDAT 
E(NUMERIC)SIZE(3):A32 

1350 ACCEPT AT(12,22)VALIDAT 

E(NUMERIC)SIZE(3):A33 

1360 XYZ=1 

1370 GOSUB 2620 

1380 IF WAHL=3 THEN 2180 

1390 CALL CLEAR 

1400 ! ABFRAGE M2 

1410 XYZ=2 

1420 GOSUB 2040 

1430 DISPLAY AT(3,7):"2g..1. 

. k . . 2. . k . . 3. . k " 


1440 ACCEPT AT(6,10)VALIDATE 

(NUMERIC)BEEP SIZE(3):B11 

1450 ACCEPT AT(6,16)VALIDATE 

(NUMERIC)SIZE(3):B12 

1460 ACCEPT AT(6,22)VALIDATE 

(NUMERIC)SIZE(3):B13 

1470 ACCEPT AT(9,10)VALIDATE 

(NUMERIC)BEEP SIZE(3):B21 

1480 ACCEPT AT(9,16)VALIDATE 

(NUMERIC)SIZE(3)I B22 

1490 ACCEPT AT(9,22)VALIDATE 

(NUMERIC)SIZE(3):B23 

1500 ACCEPT AT(12,10)VALIDAT 

E(NUMERIC)BEEP SIZE(3):B31 

1510 ACCEPT AT(12,16)VALIDAT 

E (NUMERIC) SIZE (3) I B32 

1520 ACCEPT AT(12,22)VALIDAT 

E(NUMERIC)SIZE(3):B33 

1530 IF WAHL=1 OR WAHL=2 THE 

N GOSUB 2620 

1540 IF WAHL=1 THEN 1560 ELS 
WAHL=2 THEN 1740 
! MULTIPLIKATION.. 

GOSUB 2040 

DISPLAY AT(3,5):"l*2g.. 

.2..k..3..k" 

DISPLAY-AT(15,8):"MULTI 


E IF 
1550 
1560 
1570 
1. .k 
1580 
PLIKATION !" 
1590 DISPLAY 
####"IAA 
1600 DISPLAY 
"####":BB 
1610 DISPLAY 
"####":BB 
1620 DISPLAY 
####":DD 
1630 DISPLAY 
"####":EE 
1640 DISPLAY 
“####":FF 
1650 DISPLAY 
"####":GG 
1660 DISPLAY 
"####":hh 

1670 DISPLAY 
"####":II 


AT(6,9)IUSING " 
AT(6,15):USING 
AT(6,21)IUSING 
AT(9,9):USING " 
AT(9,15):USING 
AT(9,21)IUSING 
AT (12,9) .-USING 
AT (12, 15) .-USING 
AT(12,21)IUSING 


Sfr 
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1680 GOSUB 2690 

1690 GOSUB 1900 

1700 CALL KEY(0,K,S):: IF S= 

O.THEN 1700 ELSE 1080 

1710 GOTO 1700. 

1720 ! ADDITION 
1730 GOSUB 2040 
1740 DISPLAY AT<6,9):USING M 
####":AB 

1750 DISPLAY AT(3,5):"l+2g.. 

1. . k . . 2. . k . . 3. . k " 

1760 DISPLAY AT(15,11):"ADDI 
TION ! M 

1770 DISPLAY AT (.6, 15) : USING 
"####":BA 

1780 DISPLAY AT(6,21):USING 
"####"ICA 

1790 DISPLAY AT(9,9):USING " 
####":DA 

1800 DISPLAY AT(9,15):USING 
"####":EA 

1810 DISPLAY AT(9,21):USING 
"####":FA 

1820 DISPLAY AT(12,9):USING 
" #<4## M : GA 

1830 DISPLAY AT(12,15):USING 

11 #### 11 ; HA 

1840 DISPLAY AT(12,21):USING 
"####":IA 
1850 GOSUB 2690 
1860 GOSUB 1900 
1870 CALL KEY(0,K,S):: IF S= 
0 THEN 1870'ELSE 1080 
1880 GOTO 1870 
1890 ! DARSTELLUNG Ml U. M2 
1900 DISPLAY AT(17,2):Al1 :: 

DISPLAY AT(17,6):A12 
1910 DISPLAY AT(17,10):A13 : 

: DISPLAY AT(19,2):A21 
1920 DISPLAY AT(19,6):A22 :: 

DISPLAY AT(19,10):A23 
1930 DISPLAY AT(2i,2):A31 :: 

DISPLAY AT(21,6):A32 
1940 DISPLAY AT(21,10):A33 : 

: DISPLAY AT(17,17):Bii 
1950 DISPLAY AT(17,21):B12 : 

I DISPLAY AT(17,25) l B13 
1960 DISPLAY AT(19,17):B21 : 

: DISPLAY AT(19,21):B22 
1970 DISPLAY AT(19,25):B23 : 
: DISPLAY AT(21,17):B31 
1980 DISPLAY AT(21,21):B32 : 

: DISPLAY AT(21,25):B33 
1990 IF WAHL=1 THEN CALL HCH 

AR M Q 17 4?) 

2000 IF WAHL=2 THEN CALL HCH 
AR(19,17,43) 

2010 DISPLAY AT(24,2):"<< TA 
STE DRUECKEN >>^" 

2020 ! ZEICHNEN DER TABELLE 
2030 RETURN 


2040 CALL CLEAR 

2050 DISPLAY AT(3,8):"g..1. . 

. . .2 . 3- 

2060 DISPLAY AT(4,7 ):"iei -f ii 
iUi + iiiii + iii* 

2070 DISPLAY AT(5,8):"g .. 

k.k.k " 

2080 DISPLAY AT(6,7):"lh.... 

.k.....k.^...k " 

2090 DISPLAY AT(7,8):"gddddd 
j dddddj dddddj M 

2100 DISPLAY AT(8,8):"g. 

k.k.k " 

2110 DISPLAY AT(9,7):"2h- 

.k.k.k" 

2120 DISPLAY AT(10,8):"gdddd 
djdddddjdddddj " 

2130 DISPLAY AT(11,8):"g.... 

. k.k.k " 

2140 DISPLAY AT(12,7):"3h... 

. . k .k. k " 

2150 DISPLAY AT(13,8): M gdddd 
dj dddddj dddddj " 

2160 RETURN 

2170 ! UMKEHRMATRIX 

2180 GOSUB 2040 

2190 DISPLAY AT(15,7):"UMKEH 

RMATRIX ! " 

2200 DISPLAY AT(17,6):"DIE D 
ETERMINANTE LAUTET :" 

2210 DISPLAY AT(19,10):DET 
2220 IF DET=0 THEN 2560 
2230 DISPLAY AT(3,7):"Tg..1. 
.k..2..k..3..k" 

2240 DISPLAY AT(6,9):USING " 
####": AC 

2250 DISPLAY AT(6,15):USING 

-####":bc 

2260 DISPLAY AT(6,21):USING 
n •> > cg 

2270 DISPLAY AT(9,9):USING " 
####";DC 

2280 DISPLAY AT(9,15):USING 
"####":EC 

2290 DISPLAY AT(9,21):USING 
"####":FC 

2300 DISPLAY AT(12,9):USING 

n ££££ u ; 

' 2310 DISPLAY AT(12,15):USING 
"####":HC 

2320 DISPLAY AT(12,21):USING 

"####":ic 

2330 GOSUB 2690 
2340 DISPLAY AT(24,2):"TASTE 
DRUECKEN FUER UMKEHR." 

2350 CALL KEY(0,K,S):: IF S= 
0 THEN 2350 ELSE 2380 
2360 GOTO 2350 
2370 ! SPIEGELUNG 
2380 GOSUB 2040 
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2390 DISPLAY AT<3,8): "g. . 1. . 
k..2..k..3..k" 

2400 DISPLAY AT(6,9):USING " 

####":ac 

2410 DISPLAY AI(6,15):USING 
"####":DC 

2420 DISPLAY AT(6,21):USING 

h #### m :gc 

2430 DISPLAY AT(9,9):USING " 
####":BC 

2440 DISPLAY AT(9,15):USING 
"####*•: EC 

2450 DISPLAY AT<9,21):USING 

"####":hc 

2460 DISPLAY AT(12,9):USING 
"####":CB 

2470 DISPLAY AT(12,15):USING 
"#### M :FC 

2480 DISPLAY AT(12,21):USING 
"####":IC 
2490 GOSUB 2690 
2500 DISPLAY AT(15,7):"UMKEH 
RMATRIX !" 

2510 DISPLAY AT(17,9):"DETER 
NINANTE 

2520 DISPLAY AT(19,10):DET 
2530 DISPLAY AT(24,2):"<< TA 
STE DRUECKEN >>" 

2540 CALL KEY(0,K,S):: IF S= 
0 THEN 2540 ELSE 1100 
2550 GOTO 2540 

2560 DISPLAY AT(21,2):"DIE D 
ETERMINANTE IST UNGUEL-TIG, 
DA 0=0.“ 

2570 GOTO 2230 

2580 ! ENDE 

2590 CALL CLEAR 

2600 DISPLAY AT(9,5):"BIS ZU 

M NAECHSTEN MAL." 

2610 END 

2620 DISPLAY AT(24,2):"KORRI 
GIEREN <J> <N>" 

2630 CALL KEY(0,K,S):.* IF S= 
0 THEN 2630 

2640 IF K=78 OR K=110 THEN 2 
680 • 

2650 IF K=74 OR K=106 THEN 2 
660 ELSE 2670 

2660 IF XYZ=1 THEN 1220 ELSE 
IF XYZ=2 THEN 1400 
2670 GOTO 2630 
2680 RETURN 

2690 FÜR 1=6 TO 12 STEP 3 :: 
CALL VCHAR(I,10,104):: CALL 
VCHAR(1,16,107):: CALL VCHA 
R(I,22,107):: CALL VCHAR(I,2 
8,107):: NEXT I 
2700 RETURN . 


*****-X4f *#*£*#*#** ***** 


>SGFT-PLCT< 


Copyright by 


Benoetigte Geraete 
TI99/4A Konsole 
Ext. Basic 
Joystick (1) 

Spe i c herbe 1 egur.g 
11264 Bytes 


Gowm* y : 


: CALL SCREEN :: 
CALL JOYST :: C 
; CALL MAGNIFY : 
E :: CALL SOUND 

R :: CALL HCHAR 

R : : CALL GCHAR 

FRITE 

310 CALL C'HARF'AT 


CALL 


CALL 


CALL SPRIT 
CALL COLO 
CALL VCHA 
CALL DELS 

; CALL CHA 


RSET 

: ; 

CAlL 

PATTERN 



320 DIM 

Z$(10 

),CH$(1 

00 ) 


330 A 

l 

; E : ; 

C : D 

l l 

E :: 

F : : 

H 

:: I 

: : K : : 

L 

:: M 

:: N 

\: 

o :: 

Q : : S 

! ! 

Li : : 

v :: 

U ; 

: : X : 

: Y :: 

PR 

:: PR 

S ll 

NR 

: : NC 

:: CN 

■ • 

• • 

RGW : 

: co L 

; 

: RA : 

: CA 



340 C 

X 

: : CY 

:: CXM 

I i 

CYM : 

: Dix 

I 

: D2X 

:: DlY 

! \ 

D2Y : 

: xs 

:; 

YS ,* .* 

XIS 

YJ 

S i : 


CALL MAGNI 


350 x$ :: y$ :: c$ 

360 !0F- 

370 CALL CLEAR :: CALL MAGNI 
FY (2) 

380 CALL SPRITE(#1,83,5,49,7 
0, #2,79,5,49,86, #3,70,5,49, 1 
02,#4,34,5,49,116) 

390 CALL SPRITE(#5,80,5,70,1 
00,#6,76,5,70,116,#7,79,5,70 
,132,#8,84,5,70,148) 

400 X$="* (0 1985 by KAY SI 
EVERT *" 

410 FÜR 1 = 1 TO 27 ; CALL HC 
HAR(20,2+1,ASC(SEG$(X$,I,1)) 
):: CALL SOUND(-25,830,9):: 
NEXT I 

420 DISPLAY AT(24,4):"ERKLAE 
RUNG ?(J/N):N" : .* ACCEPT AT ( 
24.22)VALIDATE("JN")SIZE(-1) 

: xi 

430 DISPLAY AT(24,2):"tALPHA 
LOCK 1 -TASTE LOESEN ! " : CA 
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LL SOUND (1GOO| HO, 10) : : FOR 
1 = 1 TO 500 :: NEXT I 

440 IF X*="J" THEN A=i :: GO 
TO 450 

450 CALL DELSPRITE(ALL):: CA 
LL MAGNIFYm:: CALL CLEAR 
460 FOR 1=0 TO 9 :: CALL CHA 
RPAT(48+I,x*>:: z$(l)=x$ :: 
NEXT I 

470 C$="00000001001000i10100 
0101011001111000100110101011 
1100110111101111" 

480 W,F=1 :: PR,PRS=4 :: NR= 
44 :: po=2.5 

490 !***** BILDSCHIRM ****** 

500 CALL SCREEN(l):: CALL HC 
HARd,1,31,768) 

510 !SP+ 

520 CALL CHAR(32,"0000000000 
OOOOFF",33,"0101010101010101 
",34,"FF",35,"30303080808030 
80" > 

530 CALL CHAR(36,"02070E1C3S 
70603",37,"040E1F3E7CF8702", 
38, '‘FF813181318131FF" , 39, "FF 
C7BEBFBFBFEBC7") 

540 CALL CHAR(40,"3C4281S181 
8142 3C",41,"AA55AA55AA55AA55 
", 42,"FOFOFOFO") 

550 !SP- 

560 CALL HCHAR(1,3,32,28) : : 
CALL HCHAR(23,3,34,23):: CAL 
L VCHAR(2,2,33,21) : : CALL VC 
HAR(2,27,33,21) 

570 CALL VCHAR(2,31,35,21) : : 

FÜR 1=5 TO 20 STEP 3 :: CAL 
L HCHAR(1,28,34,3):: NEXT I 
580 CALL HCHAR(13,28,30) 

590 CALL HCHAR (3,29,37) : CA 
LL HCHAR(6,29,33):: CALL HCH 
AR.( 9,29,40 ) I : CALL HCHAR(12, 
29,34):: CALL HCHAR (.15,29,39 

) ' 

600 CALL COLOR(0,6,1):: FOR 
1=1 TO 14 :: CALL COLOR(1,4, 
l):: NEXT I. 

610 IF A=i THEN 1760 
620 FÜR 1=45 TO 143 :: CALL 
CHAR(I,"0")d NEXT I :: GOSü 
B 1640 

630 ROW,C0L=89 :: CALL SPRIT 
E (tri, 36,6, RCW-7, COL, #2,36,6, 
200,100) 

640 GOTO 1370 

650 !**** VERGRÜESSERN ***** 
660 CALL GCHAR(INT(ROW/8),IN 
T(CCL/8)+1,V):: IF V=31 THEN 
1370 

670 CALL CHARPAT(V,X$) 

680 CALL CHAR(41,X$) 


690 CALL SPRITE (#3,41,15, 157 
,221):: CALL MAGNIFY(2) 

700 CALL KEY(1,Q,S):: IF 30 
18 OR 3=-1 THEN. 700 ELSE CAL 
L MAGNIFY (1)0 CALL SPRITE (# 
1,33,6,ROW-7,COL):: GOTO 137 
0 

710 .’**** RADIEREN ****** 
720 U=R0W/8 :: V=C0L/8 
730 IF U-INT(U)>.5 THEN X=1 
ELSE X=2 

740 IF V - INT(V)>.5 THEN Y=1 
ELSE Y=2 

750 CALL GCHAR(Ü,V,Q):: IF S 
=31 THEN 1370 ELSE CALL CHAR 
PAT(Q,X$) 

760 IF X=i AND Y=i THEN X$=" 

0 " ScSEG$ (X$, 2, 1) 8c0" &SEG$ (., 

4,1) 8e" C " L3EG4 (Xi, 6, 1)8«:0 " 8cSE 
Gi(Xi,s,9):: GOT0 800 
770 IF X=i AND Y=2 THEN ;;S = 3 
EG*(X*, 1 , 15 2c" 0 K 2.SE 3$ (X$ ,3,1) 

?. 11 o " 8eSEG$ (X$, 5 , 1) 2t" 0 " 8cSEC5 ( X 
i,7, 1) &" 0 ”8c3E (X$, 9,8) : : GO 
TO SCO 

780 IF X=2 AND Y=1 THEN X$ =3 
EGi (X$, 1,8) 8c" 0 1 2cSEG$ (X$, - 0, 1 
} 2c" 0 "ScSEST (X$, 12,1 i L" 0 " £.SES$ 

' X$, 14 , 1) 2c :1 0 "8eSEG$ ( X$ ,16,1): 

: GOTO 300 

790 X$=SEG$ ( X$, 1,9) 8c" 0" 8cSEG$ 

(X«, 11, 1) 8c" 0 " ficSEG* •: X* ,13,1)8«. 

" 0 " 2<SE 3* ( X* ,15,1)2;" 0" 

800 CXM,CYM=0 :: CALL CHAR (3 
GOTO 1370 

310 !***** LINIE ****** 

320 IF W=1 THEN A=RGW :: E=C 
OL :: w=2 :: goto 1370 else 
IF W=2 THEN W=i :: CALL LGCA 
TE(#2,R0W-?,C0L):: C=RGW :: 
D=COL :: GOTO 970 
830 :***** KREIS ******* 

840 IF W=i THEN A=ROW :: B=C 
OL :: W=2 :: GOTO 1370 ELSE 
IF W=2 THEN W=1 : CALL LüCA 

TE(tt2,R0W-7,C0L) :: C=RC'W :: 
D=CCL *. ; GOTO 850 
850 CALL LOCATE(#2,200,100): 

: RAD=ABS(A-C):: U=A :: V=B 
860 IF RAD>20 THEN D=i ELSE 
D=3 

870 FÜR 1=1 TO 360 STEP D. 
880 A=U +1NT(SIN(I*PI/1SO)*RA 
D) 

390 B=V+INT(COS(I*PI/130)*RA 
D) 

900 IF MA=A AND ME=B THEN 92 
0 ELSE MA=A :: MB=B 
910 GOSUE 1100 
920 NEXT I :: ROW=ü :: CüL=V 
:: GOTO 1370 
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930 !**** CHARPLATZ ****** 
940 IF F=i THEN F=2 :: CALL 
GCHAR (R'OW/3, COL/8+1, H) : : CAL 
L HCHAR<15,29,H):: GOTO 1370 
950 CALL GCHAR(ROW/8,COL/8+1 
,A):: IF A=H THEN CALL HCHAR 
{«5,29,3?):: F=1 :: GOTO 137 
0 ELSE CALL HCHAR(ROW/8,COL/ 
8+1,H):: GOTO 1370 

960 !*** CALL DRAU *** 

970 U=D-B V=C-A 

980 DlX-SGN(V):: DiY=SGN(U) 

990 D2X-Ö :: D2Y-SGN(V) 

1000 M=AES(V):: N=AES(U) 

1010 IF M>N THEN 1040 
1020 D2Y=0 D2X=SGN (U) 

1030 M=MAX(ABS(U),ABS(V)):: 
N-MIN(ABS (U) ,ABS <V) ) 

1040 S=IN7(M/2):.* FOR 1=0 TO 
!•{ 

1050 GOSUB 1100 
1060 S=S+N 

1070 IF S<M THEN A=A + D2Y :: 

B-B+B2X :: GOTO 1090 

loso s=s-M :: a=a+D 1 x :: b=b 

■» D1Y 

1090 NEXT I :: CALL LOCATE(# 
2,200,100):: GOTO 1370 

1100 !*** *# * ***** M X * ******* 
***** «4RL0TTEN++ **** 
* X * **** * ****** ******** 

1110 XS=B/8 :: XIS=INT(XS):: 

>:= (xsis) *8 :: - IF xs=x ist 
HEN X=S 

1120 YS-A/S :: YIS=INT(YS):: 

Y = ((V£-YIS)*8)*2 :: IF YS=Y 
IS THEN Y=16 

1130 CX=YIS+1*:: IF YS=YIS T 
HEN CX=CX-1 

1140 CY=XIS+i :: IF XS=XIS T 
HEN CY=CY-1 

1150 IF CY<3 GR CY>26 THEN R 
■ETURN 

1160 IF (’GX-CX'M AND CY=CYM) = 

-i THEN 1210 

1170 CALL GCHAR(CX,CY,E) 

1180 -IF E >31 AND E<36 THEN W 
= 1 : : RETURN 

1190 IF E=3i THEN NR=NR+1 :: 
E=NR :: IF NR>143 THEN 1740 
ELSE GOSUB 1640 :: NC=NR :: 
CALL HCHAR(CX,CY,NC)ELSE NC 
=E 

1200 CALL CHARPAT(NC,Y$) 

1210 CXH=CX :: CYN=CY 
1220 IF X<5 THEN Y=Y-1 
1230 Q-ASC(SEG$(Y$,Y,1)):: I 
F 3>57 THEN 8=Q-55 ELSE G=S- 
4o 

1240 X$=SEG$(C£,1+Q*4,4> 


1250 IF X>4 THEN X=X-4 
1260 ON X GOTO 1270,1290,129 
0,1280 

1270 X$="1■&SEG$(X$,2,3):: G 
OTO 1300 

1280 X$=SEG$ (X$ ,l f 3)8c"i" :: 
GOTO 1300 

1290 X$=SEG$ (X«, 1,X■-1) &'" 1 “ ßcS 
EG*<X*,X+1,4-X) 

1300 Q=.5 :: L=o :: für 0=4 
TO 1 STEP -1 :: IF SEG*(XS,0 
,l) = ‘ , i" THEN L=L + Q*2 

1310 G=Q*2 NEXT ü 

1320 IF L>9 THEN X*=CHRS<55+ 

L)ELSE X*=CHRS(L+48) 

1330 Y*=SEG$(Y*, 1, Y-l > kXSScSE 
G*(YS,Y+1,16-Y) 

1340 CALL CHAR(NC,Y$) 

1350 RETURN 

1360 !********************** 
***** GRIFFEL ****** 
1370 CALL KEY(0,Q,S):: IF S< 
>0 THEN CALL SOUND(-100,440, 
10):: CALL COLOR(0,6,1):: GO 
TO 1440 ELSE CALL COLOR(0,3. 
5+PC,l>:: Pü=-PO 
1380 ST=PRS :: CALL J0YST(1, 
X,Y):: CALL KEY(1,Q,S):: IF 
0018 THEN 1400 
1390 IF XOO OR Y< >0 THEN ST 
=.5 ELSE CALL SOUND(-100,880 
,10):: ON PR GOTO 720,660,84 
0,820,940 

1400 IF Y-4 AND R0W>20 THEN 
RGU=R0W-Y/ST ELSE IF Y = -4 AN 
D RÜW<162 THEN ROW=ROW-Y/ST 
1410 IF X=-4 AND CÜL>2S THEN 
C0L=C0L+X/ST ELSE IF X=4 AN 
D COL<208 THEN C0L=C0L + X/ST 
1420 CALL LOCATE(#W,(R0W-7)+ 
RA,COL+CA):: GOTO 1370 
1430 !********************** 
**** obtioner. ****** 
1440 RA,CA=0 

1450 CALL KEY(0,K,S):: IF S= 
0 OR S=-l THEN CALL COLOR(0, 
3.5+P0,l>:: po=-po :: goto 1 
450 

1460 X=0 :: IF K=10i THEN Y= 
4 :: GOTO 1400 ELSE IF K=120 
THEN Y=-4 :: GOTO 1400 ELSE 
Y=0 :: IF K=115 THEN X=-4 : 
: GOTO 1400 ELSE IF K=100 TH 
EN X=4 :: GOTO 1400 
1470 IF K=13 THEN CALL SOUND 
(-100,131,10,196,15):: GOTO 
1510 

1480 IF K< >32 THEN 1370 ELSE 
CALL HCHAR(PR*3+1,28,31):: 
CALL LOCATE(#2,200,100):: CA 
LL HCHAR(15,29,3?):: W,F=1 
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1490 IF K=32 THEN PR=PR+i :: 

IF FR;7 THEN PR=1 
1500 CALL HCHAR(PR£3+1,23,30 
GOTO 1440 

1510 ON PR GOTO 1520,1530,15 
40,1550,1560,1570,1600 
1520 GOSUB 1610 :: R0W=R0W+4 
:: col=col+4 :: call sprite 

(#1,42,8,ROW,COL):: RA=3 :: 
CA=-4 :: PRS-1 :: GOTO 1370 
1530 GOSUB 1610 :: CALL PATT 
ERN(#l,38):: RA=-l :: PRS=.5 
:: GOTO 1370 

1540 CALL SPRITE(#1,36,6,ROW 
-7,C0L):: prs=4 :: goto 1370 
1550 CALL SPRITE(#1,36,6,ROW 
-7,COL):: PRS=4 GOTO 1370 
1560 GOSUB 1610 :: CALL SPRI 
TE (#1,33,5,ROW,COL) : : RA=-1 
:: PRs =.5 :: goto 1370 
1570 FOR A = 2 TO 22 FGR B= 
3 TO 26 :: CALL GCHAR(A,B,C) 
IF C=31 THEN 1590 ELSE IF 
C=NR+1 THEN A=22 :: B=26 :: 
GOTO 1590 

1580 CALL CHARPAT(C,X$):; CH 
$ (C -44 > =X$&" / " &<.STR$ ( A) 8c" - " kS 
TR$(B) 

1590 NEXT B :: NEXT A :: GOT 
0 1700 

1600 FOR A=2 TG 22 :: CALL H 
CHAR(A,3,31,24):: NEXT A :: 
FOR A=45 TO 143 :: CALL CHAR 
(A,"0"):: NEXT A :: NR=44 :: 
GOSUB 1640 :: GOTO 1440 
161.0 ROUNINT (R0W/8)*S+1 :: C 
ÖL=INT(C0L/S)*8+1 :: RETURN 
1620 !**#•** CHAR ANZEIGE *** 
1630 !*** DISPLAY ***** 

1640 IF LEN(STR$(143-NR))=2 
THEN 1660 

1650 CALL CHAR(43,(143-NR) 

):: CN=3i :: GOTO 1680 
1660 X$=STR$(143-NR):: CALL 
CHAR(44,Z$(ASC(SEG$(X$,i,1)) 
-48) ) 

1670 CN=44 :: CALL CHAR(43,Z 
$ (ASC(SEG$(X$,2,1))-48) i 
1680 CALL HCHAR(18,30,43):: 
CALL HCHAR(13,29,CN>:: RETUR 
N 

1690 '.**** AUSDRUCKEN **** 
1700 CALL CHARSET :: CALL DE 
LSPRITE(ALL):: CALL CLEAR :: 

CALL SCREEN(3) 

1710 FOR 1=1 TO 99 :: PRINT 
1+44;CH$(I): : 

1720 CALL KEY(0,K,S):: IF S= 
0 THEN 1720 

1730 NEXT I :: GOTO 1710 


1740 F,y=i :: NR=MR-1 :: CAL 
L LOCATE(#2,200,100):: GOTO 
1370 

1750 '.**** ERKLAERUNG **** 
1760 FÜR 1=65 TO ?ö :: CAtL 
CHARPAT (I, >'$> : : CALL CHA& i I + 
32,X$):: NEXT I ;; FÜR 1=9 T 
0 12 :: CALL C0L0R(II,2,/4) :: 
NEXT I f 

1770 CALL CHAR(123,"00000402 
FF0204",125,"OOOOOOOOFC",126 
, 0 " ) 

1780 CALL SPRITE(#1,123,16,2 
00,205);: F=7.5 
1790 READ E,B :: IF E=1000 T 
HEN 1890 

1800 FOR A=1 TC B :: READ C, 
N$ 

1810 FOR 1 = 1 TO LEN (X$) : .* IF 
SEG$ (X$, 1,1)=” " Ti-iEN D = 31 
ELSE D=ASC(SEG$(X$,I,i)) 

1820 CALL HCHAR(C,3+I,D):: N 

ext I :; next A :: call lüca 
TE(#1,E,205) - 

1830 DISPLAY AT(24,4)SIZE(20 
):RPT$(CHR$(31),20) 

1340 CALL KEY(0,K,S):: IF S< 
>0 THEN GOSUB 188C : : GOTO \ 1 
790 " v j 

1350 CALL COLOR i #1,3.5 «-F) : : 

F= -F 

1860 FÜR 1=1 TO 50 :: NEXT I 
:: DISPLAY AT(24,4)SIZE(20) 

; "bitte"; " <v " ; ;! taste" J J "dr 
uscken" :: CALL C0L0R(#1,S.5 
+F):: F=-F 

1370 FOR 1=1 TO 100 :: NEXT 
I :: GOTO 1830 

1830 FOR 1=2 TO 22 :: CALL H 
CHAR(1,4,31,23):: NEXT T :: 
RETURN 

1390 F=1 :: CALL DELSPRITEt# 
1):: FOR 1=9 TO 12 :: CALL C 
OLOR(1,4,1):: NEXT I :: GOTO 
620 

1900 1SP+ 

1910 DATA 200,10,4,".=□ 

{ tiplot” , 6, "so-f tiplot DIENT 
ZUR",3,"EINFACHEN ERSTELLUNG 
",loj“EINFARBIGER GRAPHIKEN. 

«i 

1920 DATA 12,"ES KÜENNEN INS 
GESAHNT”,J4,"99 ZEICHEN =633 
' 4 DOTS",16,"GESETZT WERDEN. 
DAMIT" , 18, "SIE so-f tiplot SIN 
NVOLL" 

1930 DATA 2ö, '.'ANWENDEN, BEACH 
TEN SIE",22,"BITTE FOLGENDE 
PUNKTE:* 

1940 DATA 200,10,3,"DURCH DR 

UECKEN VON" , 5, " 5ps.ce KGENNEN 
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SIE",?,"ZWISCHEN DEN VER3CH 
IE-" ,.9. "DENEN OETIOMEN WAEHL 
EN. " ,11, ‘‘DSUECKEN VON enter " 
1950 DATA iS,"FIXIERT DIE GE 
WUENSCHTE, 15, "FUNKTION. DER 
BLINKENDE“,17,"CURSOR ZEIGT 
IHNEN,", 19,"WELCHE OPTION GE 
RADE" 

1960 DATA 21, "A'JSGEFUEHRT WI 

R r •» 

JL' » 

1970 DATA 200,10,3,"Joystick 
I I3:“,5,"PUNKTWEISE' BEWEGUNG 
DES",?.“ZEICHENSTIFTES. UM 
DEN",9,"STIFT SCHNELLER ZU B 
E-",li,-WEGEN,JOYSTICK IN DI 


2060 DATA 13,"BUTTON DRUECKE 
N.",15,"1eengeres HALTEN DES 
", 17,"BUTTON FLÜTTET EINEN“, 
19."PUNKT. DIES WIRD DURCH", 
2i',"2 TOENE ANGEZEIGT. " 

2070 DATA 113,19,3,"kopierM 
unkticn:",5,"DIENT ZUM SOHNE 
LLEN".6,"SETZEN VON GLEICHAR 
TI- ",?,"GEN ZEICHEN.DAS QUAD 
RAT" . 3, "LIEBER DAS ZEICHEN FU 

T— _ I» 

2030 DATA 9,"HREN UND DURCH' 
BUTTON",10,"SPEICHERN.DRUECK 
EN DES",11,"BUTTON KOPIERT E 
3 NUN",12,"AN JEDER GEWUENSC 
HTEN-,13,"STELLE, Zeichen tau 


1930 DATA 13,"GEWUENSCHTE RI 
CHTUMG ",15, !i DANN bu11er. I = 
S CHÜSS - , 1 ?, " KNOPF j DRUECKEN 
. ,19, Pfeiltasten: PUNKTWEI 
SE",21,"BEWEGUNG DES STIFTES 


1990 DATA 17, 10, u, " r a 4 i e r e n: 
" , 5, "DURCH DRUECKEN DES" , 7," 
bü tLo»; W : RD DAS -4 /T " , 9 , "LÜT 
GROSSE QUADRAT",11,"UNTER DE 
M RADIERGUMMI" ' 

2000 DATA 13, GELDESCHT UND 
KANN",15,"NJN NEU GEFLÜTTET" 

. 17, " WERDEN. " , 19, " RÜECKSPRUN 
G ZUM MENUZ“,21,"DURCH space 

ii 

2010 DATA 41,10,3,“versreess 
n:",5, ! DAS UNTER DEM QUADR 
AT " , 7, "LIEGENDE ZE-ICHEN WIRD 
'' . 91 '' NACH DRUECKEN DES EU-", 
Ai."TON IM UNTERSTEN 15 
2020 LATA -13, "FELD VERSROESS 
ERT ",15, "• DARGESTELLT . UM DAS 
",17,“QUADRAT WE2 TERBEWEGEN“ 
>i“,"7U -CENNEN,DEN BUTTON", 
21,"NOCHMAL DRUECKEN." 

2030 DATA 6 5, 10,3, 11 k r £ i e J i ii r. 
kt-icf.: ",5, BUTTON DRUECKEN,U 
M DEN’’, 7, "MITTELPUNKT DES KR 
EISES",?,"FESTZULEGEN.STIFT 
NACH",11,"OBEN/UNTEN BEWEGEN 
, UM" 

2040 DATA 13,"DEN RADIUS FES 
TZL-LEGEM. ' ,15, 1 DANN NOCHMAL 
DEN BUTTON ", 17, " DRUECKEN, UND 
DAS PRO-%19, "GRAMM FLÜTTET 
DEM",2i,"GEWUENSCHTEN KREIS 

t' 

2050 DATA 3?, 10, S, 1 i n i e M un 
ktion:”, 5,"BUTTON DRUECKEN,U 
N DEN " . 7 , i! AUF . PUNKT FESTZULE 
GEN,",9,"DANN STIFT 2 ZUM EN 
D- ".11, "PUNKT FUEHF.EN UND DE 


2090 DATA 14,"ZEICHEN SETZEN 
- DANN",15,"WIEDER BUTTON.N 
UN KANN",16,"EIN NEUES ZEICH 
PN" ,17, “AUFGENOMMEN WERDEN. 

,13.■vjrsicht:WIRI EIN MEHR- 

i« 

2100 DATA 19,"FACH KOPIERTES 
ZEICHEN" , 70, “WACHCiEPLOTTET , 
AENDERN" ,21 , "SICH DAMIT AUCj-i 
ALLE' 1 ,22 , "KOPIEN DES ZEICHE 

I» 

i i w • 

2110 DATA 137,10,3,"reichen: 
ausdrucH",5,"UM EINE GRAPHI 
K AUCH",7,"IN ANDEREN PROGRA 
MMEN".9,"VERWENDEN ZU KSEHNE 
N. . ii , "KANN MAN SICH DEM” 

2120 DATA 13,“CHARAKTERCODE 
UND DIE" , 15, “POSITION DER ZE 
TCHEN" , 17, “Mit spsce ALTl.IST 
EN *DAMI‘ r IST DAS FRÜG 

RAMM % 21•' JEDOCH beende t. " 

2130 DATA 161,7,3, " iceschlTu 
nkticr.: " ,5 . “MIT DIESER OBTIO 
N",7,"KOENNEN SIE DEN BILD-" 

,9,"SCHIRM LÜESCHEN. DER" 

2140 DATA 11,"ZEICHENVORRAT 
STEHT" , 13', "DANNACH WIEDER vo 
11", 15, ,! ZUR VERTUE GUNG . " 

2150 DATA 200,9,5, -ZUM SCH 
LUSS Elf,' TIP-“,7,."MACHEN SIE 
SICH SCHRITT",9,"FUER SCHRI 
TT MIT DEN" # 11,"FUNKTIONEN D 
EC PRO -",13,"GRAMMS VERTRAUT 
,DENN" 

2160 DATA 15,"NUR SO WERDEN 
SIE DEN",17,"OPTIMALEN NUTZE 
N AUS " , 19, " DEM PRO GRAMM ZI EH 
EN.".22vie1-spess" 

2170 DATA 1000, 1000 __ 

ACHTUNG! 

089/1298011 Ab 1.10.85! 
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SERVICE 


Tabellenberech¬ 

nung 

Nach Erscheinen des Ti¬ 
telbilds wird nach dem 
Tagesdatum sowie der 
Benutzung eines Druk- 
kers gefragt. Hier besteht 
die Möglichkeit, bei seriel¬ 
len Druckern die Bezeich¬ 
nung RS232 ... (weitere 
Bez. je nach Typ), oder 
bei parallelen Druckern 
die Bezeichnung PIO ... 
(weitere Bez. je nach Typ) 
anzugeben. 

Im Menue sind folgen¬ 
de Optionen vorgesehen: 

Arbeitsblatt — Daten 
einiesen — Hardcopy — 
Daten speichern — Be¬ 
rechnung nach Formeln 
— Help-Funktion 

■Hier wird auch die Da¬ 
teibezeichnung sowie das 
bei Eröffnung eingegebe¬ 
ne Tagesdatum angezeigt. 

Arbeitsblatt: Es kön¬ 
nen max. 10 Textbe¬ 
zeichnungen sowie 10 
Werte erfaßt werden. 
Sollte ein Wert nicht un¬ 
mittelbar unter den näch¬ 
sten geschrieben werden, 
so ist in dieser Wert- 
Spalte, die übersprungen 
werden soll, eine „0“ 
(Null) einzugeben. Wenn 
dies nicht geschieht, wer¬ 
den die nachfolgenden 
Werte nicht bearbeitet 
bzw. berücksichtigt. 


Bei Text ist dies uner¬ 
heblich. 

Am unteren Bild¬ 
schirmende wird die Ge¬ 
samtsumme ausgeworfen. 
Außerdem wird während 
des Dialogs permanent 
die Möglichkeit der wei¬ 
teren Vorgehensweise an¬ 
gezeigt. 

Es können jederzeit 
Änderungen im Text oder 
im Wertbereich vorge¬ 
nommen werden. Nach 
Eingabe bzw. Änderung 
können Texte und Werte 
(der Übersichtlichkeit 
halber) mit der Funktion 
„T“ tabellarisch aufge- 
listet werden. 

Mit Funktion „P“ wer¬ 
den die eingegebenen 
Werte prozentual pro Po¬ 
sition ausgewertet. Diese 
können wiederum mit 
der Funktion ,,G“ gra¬ 
phisch dargestellt wer¬ 
den. 

Hierbei werden aller¬ 
dings nur die positiven 
Werte angezeigt (+ Be¬ 
träge). Durch nochmali¬ 
ges Drücken der Taste 
„t“ wird wieder die Ta¬ 
belle aufgelistet. 

Funktion „C“ steht für 
Hardcopy, die ebenfalls 
im Arbeitsblatt möglich 
ist. Graphikausdruck ist 
allerdings auf Grund der 
begrenzten Speicherkapa¬ 
zität nicht vorgesehen. 

Die Funktion ,,F“ er¬ 
möglicht die Berechnung 


nach Formeln (bereits in¬ 
tegriert). 

Durch Drücken der.Ta¬ 
ste „M“ wird der Mittel¬ 
wert der eingegebenen 
Werte ausgeworfen. 

Daten einiesen: Es 
können mit diesem Pro¬ 
gramm bereits erstellte 
Daten eingelesen und be¬ 
arbeitet werden. Der bei 
der Eröffnung angegebe¬ 
ne Dateiname sowie das 
Tagesdatum wird mit 
dem Einspielen der neuen 
Datei automatisch über¬ 
schrieben und auf neuen 
Stand gebracht. Nach Be¬ 
endigung des Ladevor¬ 
gangs verzweigt das Pro¬ 
gramm zum Menue und 
die neu geladene Da¬ 
tei sowie das Erstellungs¬ 
datum wird angezeigt. 

Sollten beim Ladevor¬ 
gang Fehler auftreten (Fi¬ 
le oder Data-Error) so 
wird dies durch eine Mit¬ 
teilung angezeigt. Soll 
trotzdem eine neue Datei 
eingelesen- werden, so ist 
das Programm abzubre¬ 
chen und wieder neu zu 
starten. 

Daten abspeichern: Es 
werden nur die im Ar¬ 
beitsblatt erstellten Werte 
und Texte gesichert, 
nicht aber die prozentua¬ 
len oder graphischen Aus¬ 
wertungen. 

Help-Funktion: Mit 

dieser Funktion kann je¬ 
derzeit, im Menue oder 


im Arbeitsblatt, festge¬ 
stellt werden, welche Be¬ 
deutung die angegebenen 
Parameter haben. 


Gerhard Hübner 


Torschießen 

Torschießen ist ein Spiel 
für zwei Spieler. Der eine 
Spieler schießt und der 
andere wehrt ab. Für 
jedes Tor oder gehaltenen 
Ball gibt es einen Punkt. 
Wer zuerst 10 Punkte 
hat, hat gewonnen. 

Steuerung: siehe Pro¬ 

gramm. 

Achtung: 

1. Berühren sich die Spie¬ 
ler, so wird „FOUL“ 
angezeigt und der An¬ 
griff wiederholt. 

2. Kommt der Torwart zu 
weit aus seinem Tor, 
kann er sich nur ganz 
langsam bewegen. 

Programmerläuterungen: 
Hauptprogramm 220—400 
Sub Punkte 410—470 
(Spieler) 

Sub Gepunk 480—540 
(Torwart) 

Sub Gehalten 550—610 
Sub Stand 620—649 
(Spielstand) 

Sub Schuß 650-750 
Sub Foul 760-800 
Sub Bildschirm 810— 

1080 (Graphik) 

Sub Spielanleitung 1090 
-1300 

Sub Torwart 1310— 

1360 (Torwartsteuerung) 
Sprite 1 Spieler 
Sprite 2 Torwart 
Sprite 3 Ball 

Empfindlichkeit des Tor¬ 
warts ist in den „Call 
Coinc(...)“-Anweisungen 
festgelegt (Zeile 280,340, 
600). 







100 ! 

** ******3 ************* 

110 ! 

* 

* 

120 ! 

* TORESCHIESSEN 

* 

130 ! 

* 

* 

140 ! 

* Copyright by 

* 

150 ! 

* 

* 

160 ! 

* Ste-f-fen Tre-fz 

* 

170 ! 

* 

* 

180 ! 

# 


190 ! 

* Benoetigte Geraets 

* 

200 ! 

* TI99/4A Konsole 

* 

210 ! 

% Ext. Basic 

* 

220 ! 

* Joystick (lk2) 

* 

230 ! 

* 

* 

260 i 

* Speicherbelegung 

* 

270 ! 

# 5610 Bytes 

* 

280 ! 

* 

* 

290 ! 


300 CALL CLEAR :: CALL SPIEL 
ANLEITUNG .* : CALL BILDSCHIRM 

310 C 

ALL SPRITE(«1,124,11 , 

16 

5,90) 

: : CALL SPRITE(#2,112 

,1 

6,165 

. 125) : : CALL SPRITE (# 

3» 

136,8 

, 96,130) 



320 CALL J0YST(1,X,Y)I: CALL 
TORWART :: CALL KEY(0,K,S): 

: IF K=32 THEN CALL DELSPRIT 
E (ALL ) : CALL CLEAR :: END 
330 CALL NOTION(#i,-Y*2,X*2) 
340 CALL CGINC<#1,#2,6,T):: 
CALL CGINC<#2,#3,10,P> : : CAL 
L COINC(#1,#3,6,Q) 

350 IF G=-1 THEN CALL FOUL : 

: GOTO 310 ELSE 360 
360 IF P=-i THEN CALL SEPUNK 
(G,W):: CALL GEHALTEN(G,Wi:: 
GOTO 460 ELSE 370 
370 IF T=-1 THEN CALL SCHUSS 
:: GOTO 320 ELSE 380 
380 CALL POSITION(#2,V,H) 

390 CALL JOYST(i,X,Y):I CALL 
MOTION<#i f -Y*2 f X*2):: CALL 
TORWART 

400 CALL COINC(#2,#3,10,U>:: 

CALL COINC(#1,#3,6,F) 

410 IF F=-1 THEN CALL FOUL : 

: GOTO 310 ELSE IF U=-i THEN 
CALL GEF'UNK (G, W) : : CALL GEH 
ALTEN <G, W):: GOTO 460 ELSE;4 
20 

420 CALL POSITION(#2,V,H) 

430 IF U=0 THEN IF V<90 AND 
V>20 THEN IF H>89 AND H<157 - 
THEN CALL PUNKTE(G,W: GOTO 
450 ELSE 440 

440 IF V<89 OR H>250 OR H<10 
THEN CALL DELSPRITE(#2):: C 
ALL HCHAR(2,1.2,40, 10) : : DISP 
LAY AT (2, 12) SIZE (6) : VORBEI 11 
:: GOTO 450 ELSE 320 
450 CALL MOTIÖN<#1,0*0,#2,0, 


0,#3,0,0):: CALL STAND<G,W): 
: FOR 1=1 TO 250 :: NEXT I : 
: GOTO 310 

460 CALL POSITION(#2,R,S):: 
IF R>=1S0 THEN 310 ELSE CALL 
STAND(G,W)I: GOTO 320 
470 SUB PUNKTE(G,W) 

480 CALL SOUND(100,523,2,659 
,2):: CALL HCHAR(2,12,40,10) 
490 G=G+i :: DISPLAY AT(2,12 
)SIZE(3):"TOR" :: IF G=10 TH 
EN DISPLAY AT(2,12)SIZE(4):" 
ENDE" :: GOTO 500 ELSE CALL 
STAND(G,W);; SUBEXIT 
500 CALL KEY (0, K, S) .* : IF K=3 
2 THEN CALL DELSPRITE(ALL):: 

CALL CLEAR :: END 
510 CALL KEY(2,K,S):: CALL M 
0TI0N<#1,0,0,#2,0,0,#3,Q,0) : 

: IF K=18 THEN G,W=0 :: DISP 

LAY AT(2,12)SIZE(5):"START" 

:: SUBEXIT ELSE 500 

520 SÜßEND 

530 SUB GEPUNK(G,W) 

540 CALL SOUND(100,261,2,326 
,2):: CALL HCHAR(2,12,40,10) 
550 w=w+l :: if w=io then di 
SPLAY AT(2,12)SIZE(4):"ENDE" 
:: GOTO 560 ELSE CALL STAND 
< G,w):: SUBEXIT 
560 CALL KEY(0,K,S):: IF K=3 
2 THEN CALL DELSPRITE(ALL):: 

CALL CLEAR :: END 
570 CALL KEY(1,K,S):: CALL N 
OTION(#1,0,0,#2,0,0,#3,0,0) : 
: IF K=1S THEN G,W=0 :: DISP 
LAY AT(2,12)SIZE(5):"START" 
:: SUEEXIT ELSE 560 
580 SUBEND 

590 SUB GEHALTEN <G,W) 

600 A-i6 :: B=3 :: CALL PATT 
ERN(#1,124):: CALL M0TI0N(#2 
,A,B,#3,0,0,#1,0,0) 

610 DISPLAY AT(2,12)SIZE(8): 
"GEHALTEN" :: CALL STAND(G,W 
) 

.620 FCR 1=1 TO 200 :: NEXT I 
: ; CALL MOTION(#2,0,0) 

630_ CALL POSITION (#2, V, H) : : 
IF V)=180 THEN SUBEXIT ELSE 
640 

640 CALL COINC(#2,#3,10,U):: 

IF U=~i THEN 600 ELSE SUBEX 
IT 

650 SUBEND 

660 SUB STAND(G,W) 

670 DISPLAY AT(4,12)SIZE(1): 
CHR$(G + 48M: DISPLAY AT(4,15 
)SIZE(1):":" :: DISPLAY AT(4 
,18)SIZE(1):CHR$(W+48) 



680 SÜßEND 

690 SUB SCHUSS 

700 CALL KEY(1,K,S>:: CALL J 

oyst( i,x, y>:: call torwart ! 

:: CALL JOYST(2,XI|Yi) 

710 CALL M0TI0N(#1,-Y*2,X*2) 
:: CALL MOTION(#2,-Y*2,X*2) 
720 CALL C0INC(#1,#3,6,Q):: 

IF Q=-l THEN CALL FOUL :: SU 
BEXIT ELSE 730 
730 IF K=18 AND Y=0 AND X=4 
then N--20 :: L=15 :: GOTO 7 
SO :: SUBEXIT ELSE 740 
740 IF K=iS AND Y=0 AND X=-4 
THEN N=-20 :: L=-15 :: GOTO 
730 :: SUBEXIT ELSE 750 
750 IF K=i8 AND Y=4 AND X=4 
THEN N=-20 :: L=S :: GOTO 73 
0 :: SUBEXIT ELSE 760 
760 IF K=18 AND Y = 4 AND X=-4 
THEN N =-20 :: L=-8 :: GOTO 
730 :: SUBEXIT ELSE 770 
770 IF K=i8 AND Y=4 AND X=ü 
THEN N=-20 :: L=0 :: GOTO 73 
0 :: SUBEXIT ELSE 700 
780 CALL PATTERN(#1,120):: C 
ALL MOTION(#2,N,L) 

790 SUBEND 
800 SUB FOUL 

810 CALL C0INC(#1,#3,6,Q):: 

IF Q=-1 THEN CALL HCHAR(2,12 
,40,10):: DISPLAY AT(2,12)SI 
ZE(4):"FOUL" :: GOTO 820 
820 CALL DELSPRITE(#3):: CAL 
L MOTION(#2,0,0,#1,0,0) : : CA 
LL PATTERN(#1,140) 

830 FÜR 1=1 TO 220 :: NEXT I 
CALL DELSPRITE(ALL)I: SU 
BEXIT 

340 SUBEND 
850 SUB BILDSCHIRM 
860 CALL SCREEN(2)'.: CALL CH 
AR(33,"3C3C99A5A55A3C3C M ,40, 
RPT$ CF",16),104,RPT$("F",16 
) ) 

870 CALL CHAR(96,"0707070707 
0707FF",97,RPT$<"07",9),98,R 
PT$("EO",8),99,“EOEOEOEOEOEO 
EOFF",100,"FFFFFFFF") 

880 CALL CHAR(116,"000000000 
OOOOOFF",102,"FFFFFFFFEOEOEO 
EO",103,"FFFFFFFF07070707") 
890 CALL CHAR(120,"030303010 
3070F1B3303030303030307C0C0C 
030CGEOFODCCÖCOE07030303800" 
) 

900 CALL CHAR(124,"030303011 
F1FlB1B0303033F3F20000080303 
G00C0C0FSF830F0F03030303S0") 
910 CALL CHAR(112,RPT$("0",5 
2 ) 4 Sc" 1 33C3C18") 


920 CALL CHAR(136,"101313131 
11F0F07Ö70707060606060E10909 
09010F0E0C0C0C0C0C0C0C0C0E“) 
930 CALL CHAR(140,"33BABA93F 
F3933397B7F1F3F266C131000000 
0C0C0F3A0C030E0B09080C") ^ 

940 CALL HCHAR(8,15,100,7) : : 

CALL VCHAR<9,14,93,3) : : CAL 
L VCHAR(9,21,97,3) 

950 CALL HCHAR (S, 14,102):: C 
ALL HCHAR(3,2i,103) 

960 CALL VCHAR(12,14,99):: C 
ALL VCHAR(12,21,96) 

970 CALL HCHAR(12,1,116,13): 

: CALL HCHAR(12,15,116,6):: 
CALL HCHAR(12,22,116,11) 

980 CALL HCHAR(1,1,33,43) 

990 FÜR 1=12 TO 23 :: FÜR J= 
2 TG 5 :: CALL HCHAR(J,I,40) 

:: NEXT J :: NEXT I 
1000 FOR 1=2 TO 5 :: CALL HC 
HAR(I,24,33,20):: NEXT I 
1010 CALL HCHAR(6,12,33,54) 
1020 FOR 1=3 TO 11 :: FOR J= 
1 TO 13 :: CALL HCHAR(I,J,10 
4):: NEXT J :: NEXT I 
1030 FÜR 1=8 TO 10 :: FOR J= 
22 TO 32 :: CALL' HCHAR (I,J, 1 
04):: NEXT J :: NEXT i 
1040 FOR J=1 TO 13 :: CALL H 
CHAR(11,J,104):I FOR K=22 TO 
32 :: CALL HCHAR(11,K,104): 

: NEXT K :: NEXT J 
1050 FOR 1=9 TO 11 :: FOR J= 
15 TO 20 :: CALL HCHAR(I,J,1 
04):: NEXT J :: next I 
1060 ! COLORS ************* 
1070 CALL C0L0R(2,11,11,8,16 
,1,9,16,10,10,10,10,11,16,10 
') 

1080 FOR 1=3 TO 7 :: CALL CO 
LGR(I,2,11):: NEXT I 
1090 CALL MAGNIFY(3):: CALL 
SCREEN(13) 

1100 SUBEND 

1110 SUB SPIELANLEITUNG 
1120 CALL CLEAR :: DISPLAY A 
T(10,4):"WUENSCHEN SIE EINE 
SF^IELAN- LEITUNG 7(J/N>" 

1130 CALL KEY(0,K,S):: IF S= 
0 THEN 1130 

1140 IF K=74 ÜR K=106 THEN 1 
150 ELSE SUBEXIT 
1150 CALL CLEAR :: CALL SCRE 
EN (3) 

1160 PRINT "******* TOR SCH IE 
SSEN 1****%*" :: PRINT 

1170 PRINT "SPIELERANLEITUNG 
:" :: print "Steuerung erfol 
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C T ‘JtBt-K. . < • . JOT ST i wK - i " • 

11 SO FF INT "DER SCHUSS WIRD 
DURCH I HOFF- DRÜCK UND DRüECK 
EN IN EN7-..SPRECHENDE RICHT 
UNG AUSGE - , . LOEST ! 

1190 PRINT PRIMI "Bi 

TTE EINE TASTE DRÜECKEW“ 

1200 CALL KEY(0,K,S):: IF S= 

C ! THEN 1 - 

1210 CALL CLCAR 

1220 PRINT " TORWART ANLEITUNG 


1230 PRINT "STEUERUNG ERFOLG 
T UcBER..... 3 OYST ICK-2" 

1240 FF-1NT "DER TORWART KANN 
DIE .CüUCS'S L ABWEHREN UND 


er ruiiKirii :: 

1250 PRINT ; : 

EINE. 

12 PO Cr-L L r.L V 
0 "HE ii J 260 


PRINT 
IE DFVJLCKEN" 
K,S):; IF s= 


1270 CALL CLEAR 
1200 PF INT - NEUER START AUF 
PNC"FDRÜCK . . DES VERLIERERS*’ 
: PF I NT • ENDE AUF LE 

EF ~ -'.S "L > « I J '• I » i F'RIN T. “ ALI 

HAI c: * herausnehmen 


1290 


r, r — r r- : r ► .<- -r a <-■ t 
i. i . ! L _ .» l •!£_ ln—-! 


I 


_ C V. - L -• '• 

CALL KEY C # .v,s: ;: :r s= 

"! th ::dc ElSE call, clear 
s uro: it 


1310 s ;r.r ;t* 
1320 c uE- ~C 
1330 C : - u ; J 
1340 C--DL M 
■X 2 5 

1350 CALL P 
13cC IF F.;- 
ICH f £3.0. C > 
1270 3 ÜBEND 



IT ION * * 
0 THEN 



I ALL 


NOT 


UNSER 

ET TELEFONSERVICE S 

Leserbriefe und Fragen sind uns stets willkommen. 
Wir beantworten sie entweder direkt oder auf 
der Leserbriefseite 
ACHTUNG !•!! 

Wie immer steht unseren Lesern unser Telefon- 
Service zur Verfügung! Jeden Dienstag von 15 bis 
19 Uhr. Für technische Fragen: 0731/33 220 und 
für Lis tin gs/Progr am me : 089 /129 80 1 3 


100 

i 

********************** 

110 

i 

* 


* 

120 


*TABELLENBERECHNUNGEN* 

130 

i 

* 


* 

140 

i 

* 

Copyright by 

* 

150 

i 

* 


* 

160 

1 

* 

Peter Eisenbraun 

* 

170 

i 

* 


* 

190 

1 

* 

Benoetigte Geraete 

* 

200 

i 

* 

TI99/4A Konsole 

* 

210 

i 

* 

Ext. Basic 

* 

220 

i 

* 


* 

260 

i 

* 

Speicherbelegung 

* 

270 

i 

* 

11184 Bytes 

* 

280 

i 

* 


* 

290 

i 

********************** 

295 

i 




300 

CALL 

SCREEN(2):: POR T 

= 9 

TO 

12 : 

: CALL COLOR(T,16, 

5) 


:: NEXT T :: FOR 1=5 TO 8 :: 

CALL C0LÜR(I,8,2):: NEXT I 
310 FOR U=0 TO 4 : : CALL COL 
or(U, ll,2):: NEXT u :: displ 
AY AT(5,3)ERASE ALL:" TABE 
LLENBERECHNUG " :: FOR DL= 
1 TO 500 :: NEXT DL 
320 ON WARNING NEXT :: DISPL 
AY AT(3,10)ERASE ALL:"TT.NM. 
JJ" :: DISPLAY AT(9,10):"DAT 
EINAME" :: ACCEPT AT(5,10)SI 
ZE(2)VALIDATE(DIGIT):TT 
330 ACCEPT AT(5,13)SIZE(2)VA 
LIDATE(DIGIT):MM :: ACCEPT A 
T(5,16)SIZE(2)VALIDATE(DIGIT 
) : JJ 

340 IF TT<1 OR TT>31 OR MM<1 
OR MM>12 THEN 320 ELSE ACCE 
PT AT(11,lO)SIZE(lO)VALIDATE 
(UALPHA."."):DN$ 

350 DISPLAY AT(15,10):"DRUCK 
ER J N" :: ACCEPT VALIDATE ( " 
JN"):EG$ :: IP EG$="J" THEN 
DISPLAY AT(17,1):"BEZEICHNUN 
G ?" 

360 IP EG$="N" THEN 370 :: D 
I8PLAY AT(19,1):"RS232.BA=.. 
.ODER RIO ?" :: ACCEPT AT(23 
,1)VALIDATE(UALPHA,".=/-1234 
567890"):DR$ 

370 DISPLAY AT(3,11)ERASE AL 
L:"auswah1" :: DISPLAY AT(8, 
1) : "a>ARBEITSBLATT. . . r- >READ 
DATA" :: DISPLAY AT(10,l):"h 
✓ HELP ROUTINE...s >SAVE DATA" 
380 DISPLAY AT(I2,1):"c>HARD 
COPY" :.* DISPLAY AT (22, 1 ) : " d 
aturn " > TT; ". " j MM j " . " » J J : : D 
ISPLAY AT (24, 1) : "datei " TAB 

(8);dn$ 

390 DISPLAY AT(18,1):"drucke 
r"STAB(20);DR$ :: CALL KEY(0 








,K,3):: IF 3=0 THEN 390 ELSE 
400 

400 IF K=65 THEN 410 :: IF K 
=67 THEN 1580 :: IF K=33 THE 
N 880 :: IF K=82 THEN 920 :: 

IF K=72 THEN 1540 ELSE 370 

410 DISPLAY AT (1,1) ERA3E ALL 
:Fi$ :: DISPLAY AT(3,i):F2$ 

:: DISPLAY AT(5,1):F3$ 

420 DISPLAY AT( 1,16 ): USING " 
######.##":Zi :: Display AT( 

3.16) :USING '•######.:Z2 : 

: .DISPLAY AT(5,16) :USING 

:Z3 

430 DISPLAY AT(7,i):F4$ :: D 
ISPLAY AT(9,1):F5$ :: DISPLA 
Y AT(11,1):F6$ ;: DISPLAY AT 
(13,1):F7$ 

440 DISPLAY AT(7,16) : USING " 

: Z4 :: DISPLAY AT ( 

9.16) :USING "####**#.##":Z5 : 

: DISPLAY AT(11,16):USING " # 
###***. : Z6 

450 DISPLAY AT(13,16):USING 
"######. ##" :Z7 
460 DISPLAY AT(15,1):FS$ :: 
DISPLAY AT(17,1):F9$ :: DISP 
LAY AT(19,1):F10$ 

470 DISPLAY AT ( 15,16) : USING 
" tttt" : ZS :: DISPLAY AT 

(17,16):USING "######.##":Z9 
:: DISPLAY AT(19,16):USING 
##" : Z10 

480 DISPLAY AT(1,27):"1" :: 
DISPLAY AT(3,27) :”2" :: DISP 
LAY AT(5,27):"3" :: DISPLAY 
AT(7,27):"4" :: DISPLAY AT(9 

,27) :"5" :: DISPLAY AT(11,27 
):" 6 " 

490 DISPLAY AT(13,27):"7" :: 

DISPLAY AT(15,27)I " 8" :: DI 
SPLAY AT(17,27):"9" :: DISPL 
AY AT (19,26) : "10"- 
500 DISPLAY AT(22,1):"SUMME 
TOTAL" :: ST=Z1+Z2+Z3+Z4+Z5+ . 
Z6+Z7+Z3+Z9+Z10 :: DISPLAY A 
T (22, 16) I USING "######.##":S 
T 

510 DISPLAY AT(24,3) : "^text 
e^aend^einF^j!:: CALL KE 
Y(0,K,S):: IF S=0 THEN 510 : 

: IF K=74 THEN 540 :: IF K=7 
3 THEN-520 ELSE 510 
520 DISPLAY AT (24,3) : "^wer t 
!n^ M :: CALL KE 
y(0,k,S):: IF s=o then 520 : 

: IF K=74 THEN 670 ELSE 530 
530 IF K=78 THEN 730 ELSE 37 
0 

540 ON WARNING NEXT :: DISPL 


AY AT ( 24,3) : " ,vV we 1 che^po i t i o 
rs v nr VVM :: ACCEPT AT(24,26) 
SIZE(2)DEEP VALIDATE(DIGIT): 
PS :: GOTO 560 ■ 

550 DISPLAY AT(24,3): n — ir.se 
rt^neuer.^text^^" :: RETURN 
560 IF PS<1 OR PS>10 THEN 54 
0 IF PS=i THEN GOSUB 550 
:: ACCEPT AT(1,1)SIZE(10)BEE 
P VALIDATE i UALPHA,"."):Fl$ : 

: GOTO 510 

570 IF PS=2 THEN GOSUB 550 : 

: ACCEPT AT(3,1)SIZE(10)BEEP 
VALIDATE(UALPHA,"."):F2$ :: 
GOTO 510 

580 IF PS=3 THEN GOSUB 550 .* 

: ACCEPT AT(5,1)SIZE(10)BEEP 
VALIDATE(UALPHA,"."):F3$ :: 
GOTO 510 

590 IF r3=4 THEN GOSUE 550 : 

: ACCEPT AT(7,1)SIZE(10)BEEP 
VALIDATE(UALPHA,"."):F4$ :: 
GOTO 510 

600 IF PS=5 THEN GOSUB 550 : 

: ACCEPT AT(9,1)SIZE(10)BEEP 
VALIDATE(UALPHA,"."):F5$ :: 
GOTO 510 

610 IF PS=6 THEN GOSUB 550 : 

: ACCEPT ATI 11,1)SIZE(10)BEE 
P VALIDATE(UALPHA,"."):F6$ : 

: GOTO 510 

620 IF PS=7 THEN GOSUB 550 : 

: ACCEPT AT(13,1)SIZE(10)BEE 
P VALIDATE(UALPHA, " . " ): F7$ : 

: GOTO 510 

630 IF PS=3 THEN GOSUB 550 : 

: ACCEPT AT(15,1)SIZE(10)BEE 
P VALIDATE(UALPHA,:F8$ : 

: GOTO 510 

640 IF PS=9 THEN GOSUB 550 : 

: ACCEPT AT(17,1)SIZE(10)BEE 
P VALIDATE(UALPHA,"."):F9$ I 
; GOTO 510 

650 IF PS=10 THEN GOSUB 550 
:: ACCEPT AT(19,1)SIZE(10)BE 
EP VALIDATE(UALPHA," . " ):F10$ 
:: GOTO 510 

660 DISPLAY AT(24,3)SIZE(20) 

: nsert^neuen^wert 1 ^" : : 

RETURN 

670 ON WARNING NEXT :: DISPL 
AY ATI24,5) SIZE (20) : "welche'’' 
positions^nr' v " :: ACCEPT ATI 
24,26)SIZE(2)BEEP VALIDATE(D 
igit):PP :: goto 630 
680 IF PP<1 OR PP>10 THEN 67 
0 :: IF PP=1 THEN GOSUB 660 
:: ACCEPT AT(1,15)SIZE(9)BEE 
P VALIDATE(NUMERIC):ZI :: GO 
TO 500 

690 IF PP=2 THEN GOSUB 660 : 
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: ACCEPT AT(3,15)SIZE(9)BEEP 
VALIDATE(NUMERIC): Z2 :: GOT 
0 500 

700 IF PP=3 THEN GOSUB 660 : 

: ACCEPT AT(5,15)SIZE(9)BEEP 
VALIDATE(NUMERIC):23 :: GOT 
0 500 

710 IF PP=4 THEN GOSUB 660 : 

: ACCEPT AT(7,15)SIZE(9)BEEP 
VALIDATE(NUMERIC):Z4 :: GOT 
0 500 

720 IF PP=5 THEN GOSUB 660 : 

: ACCEPT AT(9,15)SIZE(9)BEEP 
VALIDATE(NUMERIC):Z5 :: GOT 
0 500 

730 IF PP=6 THEN GOSUB 660 : 

: ACCEPT AT(11,15)SIZE(9)BEE 
P VALIDATE(NUMERIC):Z6 :: GO 
TO 500 

740 IF PP=7 THEN GOSUB 660 : 

; ACCEPT AT(13,15)SIZE(9)BEE 
P VALIDATE(NUMERIC):Z7 :: GO 
TO 500 

750 IF PP=8 THEN GOSUB 660 : 

; ACCEPT AT(15,15)SIZE(9)BEE 
P VALIDATE(NUMERIC):ZS :: GO 
TO 500 

760 IF PP=9 THEN GOSUB 660 : 

: ACCEPT AT(17,15)SIZE(9)BEE 
P VALIDATE (NUMERIC) : Z9 GO 

TO 500 

770 IF PP=10 THEN GOSUB 660 
:: ACCEPT AT(19,15)SIZE(9)BE 
EP VALIDATE(NUMERIC):Z10 :: 
GOTO 500 

780 DISPLAY AT (24,3) : 
g^t^c^e^hel p ! h - *'" • CALL KE 

Y( 0 , K ,S):: .IF s=0 THEN 780 E 
LSE 790 

790 IF K=SO THEN 810 :: IF K 
=72 THEN 1540 :: IF K=84 THE 
N 410 :: IF K=71 THEN 970 :: 

IF K=77 THEN 1620 :: IF K=6 
7‘THEN 1580 

800 IF K=69 THEN 370 :: IF K 
=70 THEN 1670 ELSE 510 
BIO IF ST=0 THEN 820 ELSE 83 
0 

820 DISPLAY AT(24,3):"keine 
werte angelegt" ! I CALL KE'r ( 
0,K,S):: IF S=0 THEN 820 ELS 
E 510 

830 x=ioo. :: Display at(22, 

25)SIZE(4):X DISPLAY AT(2 

3,27) size (l ): :: pi=zi/st 

*X :: DISPLAY AT(1,25)SIZE(4 
):P1 :: P2=Z2/ST*X 
840 DISPLAY AT(3,25)SIZE(4): 
P2 :: P3=Z3/ST*X :: DISPLAY 
AT <5,25)SIZE(4):P3 :: P4=Z4/ 


ST*X :: DISPLAY AT(7,25)SIZE 
(4):P4 

850 P5=Z5/ST*X :: DISPLAY AT 
(9,25)SIZE(4):P5 :: P6=Z6/ST 
*X :: DISPLAY AT(11,25)SIZE( 
4):P6 :: P7=Z7/st*x :: displ 
AY AT(13,25)SIZE(4)I P7 :: P8 
=Z8/ST*X 

860 DISPLAY AT(15,25)SIZE(4) 
:P 8 :: P9=Z9/st*x :: Display 
AT(17,25)SIZE(4):P9 :: P10= 
Z10/ST*X :: DISPLAY AT(19,25 
)SIZE(4):P10 

870 CALL KEY(0,K,S):: IF S=0 
THEN 870 ELSE 510 
880 CALL CLEAR :: OPEN #i:"C 
Sl " ,INTERNAL,SEQUENTIAL,OUTP 
UT,FIXED 192 :: PRINT ttl:TT, 
MM,JJ :: PRINT ai:DN$ 

890 PRINT #1:Fl$,F2$,F3$,F4$ 
,F5*,F6*,F7$,F8*,F9$,F10$ 

900 PRINT #i:Zi,Z2,Z3,Z4,Z5, 
Z6,Z7,Z3,Z9,Z10 
910 CLOSE #1 :: GOTO 370 
920 CALL CLEAR :: ON ERROR 1 
600 

930 OPEN #1:"CS1",INTERNAL,S 
EQUENTIAL,INPUT ,FIXED 192 : 

: input #1:TT,MM,JJ :: input 
# l :DN$ 

940 INPUT #l:Fi$,F2$,F3$,F4$ 
,F5$,F6*,F7$,F8$,F9*,F10$ 

950 INPUT #l:Zl,Z2,Z3,Z4,Z5, 
Z6,Z7,Z8,Z9,Z10 
960 CLOSE #1 :: GOTO 370 
970 DISPLAY AT(1,1)SIZE(15): 

" 5%" :: DISPLAY AT(3,1)SIZ 

E(15):" 10%" :: DISPLAY AT(5 
,i) size(15):" 20% M :: displa 
Y AT(7,1)SIZE(15):" 30%" 

980 DISPLAY AT(9,1)SIZE(15): 

" 40% u " 

990 DISPLAY AT(11,1)SIZE(15) 
:« 50 %" :: Display atu3,ds 

IZE(15): M 60%" :: DISPLAY .AT 
(15,1)SIZE(15): M 70%" :: dis 
PLAY AT(17,1)SIZE(15):" 80%" 
1000 DISPLAY AT(19,1)SIZE(15 
):" 90%" 

1010 DISPLAY AT(21,1)SIZE(15 
)I"100%" :: DISPLAY AT(22,1) 

SIZE(15):"_1234567890" :: 

DISPLAY AT(23,1)SIZE(15)I"■ 

..1" 

1020 FOR L=14 TO 14 :: CALL 
COLOR(L,5,2):: CALL CHAR(136 
,"FFFFFFFFFFFFFFFFFFFFF”):: 
NEXT L 

1030 FOR 01=13 TO 13 :: CALL 
C0L0R(0I,14,2):: CALL CHAR( 
128, ••FFFFFFFFFFFFFFFFFFF" ) : : 


» 
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NEXT 01 :: IF P1<1 THEN 108 

0 

1040 IF P1>1 AND PI<6 THEN A 
=1 ELSE IF PI>5 AND P1<11 TH 
EN A=3 ELSE IF PI>10 AND P3< 
21 THEN A=5 ELSE IF PI>20 AN 
D PI<31 THEN A=7 
1050 IF PI>30 AND Pl<41 THEN 
A=9 ELSE IF PI>40 AND Pl<51 
THEN A=11 ELSE IF Pl>50 AND 
PI<61 THEN A=13 

1060 IF P1>60 AND Pl<71 THEN 
A=15 ELSE IF PI>70 AND Pl<8 
1 THEN A=17 ELSE IF PI>80 AN 
D PI<91 THEN A=19 ELSE IF PI 
>91 THEN A=2i 

1070 CALL VCHAR d,7,136,A) 
1080 IF P2<1 THEN 1130 
1090 IF' P2> 1 AND P2<6 THEN A 
B=1 ELSE IF P2>5 AND P2<11 T 
HEN AB = 3 ELSE IF P2>10 AND P 
2<21 THEN AB=5 ELSE IF P2>20 
AND P2<31 THEN AB=7 
1100 IF P2>30 AND P2<41 THEN 
AB=9 ELSE IF P2>40 AND P2<5 
1 THEN AB=11 ELSE IF P2>50 A 
ND P2 <61 THEN AB = 13 ELSE IF 
P2 >60 AND P2< 71 THEN AB=15 
1110 IF P2 >70 AND P2<81 THEN 
AB=17 ELSE IF P2>80 AND P2< 
91 THEN AB=19 ELSE IF P2>91 
THEN AB=21 

1120 CALL VCHAR d, 3,128,AB) 
1130 IF P3<1 THEN 1130 
1140 IF P3>1 AND P3<6 THEN A 
C = 1 ELSE IF P3>5 AND P3<ii T 
HEN AC=3 ELSE IF P3>10 AND P 
3<21 THEN AC=5 ELSE IF P3>20 
AND P3<31 THEN AC=7 
1150 IF P3>30 AND P3<41 THEN 
AC=9 ELSE IF P3>40 AND P3<5 
1 THEN AC=i1 ELSE IF P3>50 A 
ND P7<61 THEN AC = 13 ELSE IF 
P3>60 AND P3<71 THEN AC = 15 
1160 IF P3>70 AND P3<31 THEN 
AC=17 ELSE IF P3>30 AND P3< 
91 THEN AC S =19 ELSE IF P3>91 
THEN AC=21 

1170 CALL VCHARd,9,136,AC) 
1180 IF P4<1.THEN 1230 
1190 IF P4>1 AND P4<6 THEN A 
D=1 ELSE IF P4>5 AND P4<11 T 
ÜEN AD=3 ELSE IF P4>10 AND P 
4<21 THEN AD=5 ELSE IF P4>20 
AND P4<31 THEN AD=7 
1200 IF P4 >30 AND P4<41 THEN 
AD=9 ELSE IF P4>40 AND P4<5 
1 THEN AD=11 ELSE IF P4>50 A 
ND P4< 61 THEN AD=13 ELSE IF 
P4>60 AND P4<71 THEN AD=15 


1210 IF P4>70 AND P4<31 THEN 
AD=17 ELSE IF P4>30 AND P4< 
91 THEN AD=19 ELSE IF P4>9i 
THEN AD=21 

1220 CALL VCHAR d,10,123,AD) 
1230 IF P5<1 THEN 1280 
1240 IF P5>1 AND P5<6 THEN A 
E=1 ELSE IF P5>5 AND P5<11 T 
HEN AE=3 ELSE IF P5>10 AND P 
5<21 THEN AE=5 ELSE IF P5>20 
AND P5<31 THEN AE=7 
1250 IF P5>30 AND P5<41 THEN 
AE=9 ELSE IF P5>40 AND P5<5 
1 THEN AE=11 ELSE IF P5>50 A 
ND P5< 61 THEN AE = 13 ELSE IF 
P5>60 AND P5<71 THEN AE=15 
1260 IF P5>70 AND P5<81 THEN 
AE=17 ELSE IF P5>80 AND P5< 
91 THEN AE=19 ELSE IF P5>91 
THEN AE=21 

1270 CALL VCHARd,11,136,AE) 
1280 IF P6<1 THEN 1330 
1290 IF P6>1 AND P6<6 THEN A 
F=1 ELSE IF P6>5 AND P6<11 T 
HEN AF=3 ELSE IF P6>10 AND P 
6< 21 THEN AF = 5 ELSE IF P6>20 
AND P6< 31 THEN AF = 7 
1300 IF P6 >30 AND P6<41 THEN 
AF=9 ELSE IF P6>40 AND P6<5 
1 THEN AF=11 ELSE IF P6>50 A 
ND P6 < 61 THEN AF = 13 ELSE IF 
P6 >60 AND P6< 71 THEN AF = 15 
1310 IF P6>70 AND P6<81 THEN 
AF=17 ELSE IF P6>80 AND P6< 
91 THEN AF=19 ELSE IF P6>91 
THEN AF=21 

1320 CALL VCHAR(1,12,128,AF) 
1330 IF P7<1 THEN 1380 
1340 IF P7>1 AND P7<6 THEN A 
G=1 ELSE IF P7>5 AND P7<11 T 
HEN AG=3 ELSE IF P7>10 AND P 
7<21 THEN AG=5 ELSE IF P7>20 
AND P7< 31 THEN AG=7 
1350 IF P7>30 AND P7<41 THEN 
AG=9 ELSE IF P7>40 AND P7<5 
1 THEN AG=11 ELSE IF P7>50 A 
ND P7<61 THEN AG=13 ELSE IF 
P7>60 AND P7<71 THEN AG=15 
1360 IF P7>70 AND P7<81 THEN 
AG=17 ELSE IF P7>30 AND P7< 
91 THEN AG=19 ELSE IF P7>91 
THEN AG=21 

1370 CALL VCHARd, 13, 136, AG) 
1380 IF F’3< 1 THEN 1430 
1390 IF P3>1 AND P8<6 THEN A 
H-1 ELSE IF PS>5 AND P3<11 T 
HEN AH=3 ELSE IF P8>10 AND P 
3<21 THEN AH=5 ELSE IF P3>20 
AND P8<31 THEN AH=7 
1400 IF PS>30 AND P3<41 THEN 
AH=9 ELSE IF P8>40 AND P3<5 
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1 THEN AH=i 1 ELSE IF P3>50 A 
ND PS<61 THEN AH=13 ELSE IF 
P8>60 AND P8<71 THEN AH=15 
1410 IF PS>70 AND P8<81 THEN 
AH=17 ELSE IF.P8>80 AND P8< 
91 THEN AH=19 ELSE IF P8>91 
THEN AH=21 

1420 CALL VCHARd, 14, 128, AH) 
1430 IF P9<1 THEN 1430 
1440 IF P9>1 AND P9<6 THEN A 
1 = 1 ELSE IF P9>5 AND P9<11 T 
HEN AI=3 ELSE IF P9>10 AND P 
9 <21 THEN AI=5 ELSE IF P9>20 
AND P9<31 THEN AI=7 

1450 IF P9 >30 AND P9<41 THEN 
AI=9 ELSE IF P9>40 AND P9<5 

I THEN AI=11 ELSE IF P9>50 A 
ND P9<61 THEN AI = 13 ELSE IF 
P9 >60 AND P9< 71 THEN AI = 15 

1460 IF P9 >70 AND P9<S1 THEN 
AI = 17 ELSE IF P9>80 AND P9< 
91 THEN AI=19 ELSE IF P9>91 
THEN AI=21 

1470 CALL VCHARd, 15, 136, AI) 
1480 IF P10<1 THEN 1530 
1490 IF P10>1 AND P10C6 THEN 
AJ = i ELSE IF P10>5 AND P10< 

II THEN AJ=3 ELSE IF P10>10 
AND P10<21 THEN AJ=5 ELSE IF 

P10 >20 AND P10<31 THEN AJ = 7 
1500 IF P10) 30 AND P1CX41 TH 
EN AJ=9 ELSE IF P10>40 AND P 
10<51 THEN AJ = 11 ELSE IF P10 
>50 AND P10<61 THEN AJ=13 
1510 IF P10>60 AND P10<71 TH 
EN AJ=15 ELSE IF P10>70 AND 
P10<81 THEN AJ = 17 ELSE IF PI 
080 AND P10< 91 THEN AJ = 19 E 
LSE IF F' 10>91 THEN AJ=21 
1520 CALL VCHARd, 16, 128, A J ) 
1530 CALL KEY(0,K,S):: IF S= 
0 THEN 1530 ELSE 780 
1540 CALL CLEAR :: DISPLAY A 
T(1,1):">G GRAPHIK" :: DISPL 
AY AT(3,4):"PRO POS.IN %" d 
DISPLAY AT (5, 1):">T TABELLE 

II 

1550 DISPLAY AT(7,1):">P %AU 
SWERTUNG" :: DISPLAY AT(9,1) 
:">N MITTELWERT" d DISPLAY 
AT(li,l):">C HARDCOPY" d DI 
SPLAY AT d3, 1) : " >E ENDE" 

1560 DISPLAY AT(15,1):">F BE 
R.NACH FORMELN" 

1570 CALL KEY(0,K,S):: IF S= 
0 THEN 1570 ELSE 370 
1580 ON ERROR 1600 d OPEN # 
1:DR$,OUTPUT d FOR Y=1 TO 2 
4 d Q$="" d FOR X=32 TO 1 
STEP -1 d CALL GCHAR(Y,X,WE 


)d WT$=CHR$(WE)d Q$=WT$+Q$ 

1590 NEXT X d .PRINT #l:TAB( 

22)J Q$ d NEXT Y d CLOSE #1 
:: GOTO 370 

1600 DISPLAY AT(5,1)ERASE AL 
L:"DATA ODER FILE ERROR !" : 

: DISPLAY AT(9,1):"PROGRAMM 
ABBRECHEN/NEUSTART!" 

1610 CALL KEY(0,K,S)d IF S= 

0 THEN 1610 ELSE 370 

1620 IF Zi>0 THEN POi=Zl-Zi+ 

1 d IF Z2>0 THEN P02=Z2-Z2+ 

1 d IF Z3 >0 THEN P03=Z3-Z3+ 

1 d IF Z4>0 THEN P04=Z4-Z4+ 

1 d IF Z5>0 THEN P05=Z5-Z5+ 

1 

1630 IF Z6 >0 THEN P06=Z6-Z6+ 

1 d IF 27/0 THEN P07=Z7-Z7+ 

1 d IF Z3>0 THEN P03=Z8-Z8 + 

1 d IF Z9>0 THEN P09=Z9-Z9 + 

1 d IF Z10>0 THEN P010=Z10- 
Z10 + 1 

1640 PT=P01+P02+P03+PQ4+P05+ 

P06+P07+P08+P09+P010 

1650 MW=ST/PT d DISPLAY AT( 

24,3) : "^mittelwert^" d DIS 
PLAY AT(24,16)IUSING "###### 

.##":mw 

1660 CALL KEY(0,K,S)d IF S = 

0 THEN 1660 d IF K=13 THEN 
780 ELSE 1660 

1670 FOR 01=13 TO 13 d CALL 
COLOR(OI,14,2)d CALL CHAR( 

128,"FFFFFFFFFFFFFFFFF")d N 
EXT 01 

1680 CALL CLEAR :: CALL VCHA 
R(l,28,123,12)d CALL VCHAR( 

1.29.128.12) s: CALL VCHARd, 

30.128.12) :: DISPLAY AT(1,26 
):"tan" 

1690 DISPLAY AT(3,26):"cos" 
d DISPLAY AT(5,26):"log" d 
DISPLAY AT(7,26):"atn" d D 
ISPLAY AT(9,26):"sin" d DIS 
PLAY AT(11,26):"sqr" 

.1700 DISPLAY AT (24,1) : "auswa 

Pj 2 j ^ ** 1 11 

1710 CALL KEY(0,K,S)d IF S= 

0 THEN 1710 d IF K=84 THEN 
1730 :: IF K=67 THEN 1770,:: 

IF K=76 THEN 1790 
1720 IF K=65 THEN 1810 d IF 
K=83 THEN 1830 d IF K=31 T 
HEN 1850 ELSE 1710 
1730 DISPLAY AT(1,25)SIZE(1) 

:"X" d GOSUB 1870 

1740 DISPLAY AT(9,1):TAN(AL) 

d DISPLAY AT(11,1):TAN(BE): 

: DISPLAY AT(13,1):"GRAD";TA 
N(GA*PI/180) 

1750 DISPLAY AT (24 , 1 ) : " h'^cop 1# 
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y ! c^he 1 p ! h' v ende ! e' w " 

1760 CALL KEY(0,K,S):: IF S= 
0 THEN 1760 :: IF K=67 THEN 
1580 :: IF K=72 THEN 1540 :: 

IF K=69 THEN 410 ELSE 1670 
1770 DISPLAY AT(3,25)SI2E(1) 

:" x" :: gosub 1870 

1780 DISPLAY AT(9,1):COS(AL) 

:: DISPLAY AT(11,1):COS(BE): 

: DISPLAY AT(13,1):"GRAD" J CO 
S(GA*PI/180):: GOTO 1750 
1790 DISPLAY AT(5,25)SIZE(1) 
:"X" :: DISPLAY AT(3,1)SIZE( 

4):"WEFT" :: on warning next 

:: ACCEPT AT(3,13)SIZE(10)V 
,ALIDATE(DIGIT,"):wrt 
1800 DISPLAY AT(5,1)SIZE(12) 

:"LOGARITHMUS^ 1 :: DISPLAY A 
T(7,1)JLOG(WRT):: GOTO 1750 
1310 DISPLAY AT(7,25)SIZE(1) 

:"X" :: GOSUB 1370 
1820 DISPLAY AT(11,1):ATN(AL 
):: DISPLAY AT(13,1):ATN(BE) 
:: DISPLAY AT(15,1):"GRAD"J A 
TN(GA*180/PI):: GOTO 1750 

1330 DISPLAY AT(9,25)SIZE(1) 
:"X" :: gosub 1870 
1840 DISPLAY AT(11,1):SIN(AL 
):: DISPLAY AT(13,1):SIN(BE) 
:: DISPLAY AT(15,1):"GRAD";s 
IN(GA*PI/180):: GOTO 1750 
1850 DISPLAY AT(11,25)SIZE(1 
): n X" :: Display AT<3,nsiZE 
(4):"WERT" :: ON WARNING NEX 
T :: ACCEPT AT(3,13)SIZE(10) 
VALIDATE(DIGIT,"."):WERT 
1860 DISPLAY AT(5,1)SIZE(14) 
:"QUADRATWURZEL^ :: DISPLAY 
AT(7,1)!SQR(WERT):: GOTO 17 
50 ... 

1870 DISPLAY AT(3,1)SIZE(11) 
:"BOGENMASS 1" :: ON WARNING 
NEXT :: ACCEPT AT(3,13)SIZE 
(10)VALIDATE(DIGIT,".")IAL 
1880 DISPLAY AT(5,1)SIZE(11) 
•"BOGENMASS 2" :: ACCEPT AT( 
5,13)SIZE(10)VALIDATE(DIGIT, 
n ."):BE :: DISPLAY AT(7,1)SI 
ZE(8):"GRADMASS" 

1890 ACCEPT AT(7,13)SIZE(10) 
VALIDATE(DIGIT,"."):GA 
1900 RETURN 

Die nächste 
TI REVUE erscheint 
am 28. Oktober 
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FÜR 

BUCHHALTER 
MUSIKER & 
SAMMLER 



SPICKZETTEL 

Nachdem das Programm 
mit RUN, RUN“ DSK1. 
filename“ oder RUN“ 
CS1“ gestartet worden 
ist, erscheint das Titelbild. 
Dazu ertönt die etwas 
verfremdete Melodie des 
Liedes „Yellow Subma¬ 
rine“ von den Beatles. 
Mit einer beliebigen Taste 
geht es weiter. Man wird 
nun nach dem Namen ge¬ 
fragt und ob der Druk- 
ker angeschlossen ist, um 
das Zeugnis auszudruk- 
ken. Jetzt kann man 
noch wählen, ob man die 
Spielanleitung lesen will. 
Nach all diesen Vorberei¬ 
tungen beginnt nun end¬ 
lich das eigentlich Spiel. 

Obwohl der arme 
Schüler Willi weiß, daß 
heute einige Exen (= Steg¬ 


reifaufgaben) ins Haus 
stehen, hat er wie üblich 
nichts gelernt. Als sein 
Schutzengel steigst Du 
nun in Willis Körper. Da¬ 
durch ist er zwar auch 
nicht schlauer, aber Du 
kannst ihm helfen, Spick¬ 
punkte einzusammeln, 
die von Zeit zu Zeit auf 
einer Schulbank erschei¬ 
nen. Das versucht der 
Lehrer natürlich zu ver¬ 
hindern, indem er ihn 
verfolgt und Sehstrahlen 
nach ihm wirft. Wird Willi 
von einem Sehstrahl ge¬ 
troffen, hat ihn der Leh¬ 
rer beim Spicken er¬ 
wischt und Du erntest ei¬ 
ne Spicksechs. Du bist 
aber auch nicht ganz 
wehrlos, Du kannst näm¬ 
lich mit U-Haken auf den 
Lehrer schießen. Triffst 
Du ihn. ist er fünf Minu- 
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ten bzw. bis zum näch¬ 
sten gefressenen Spick¬ 
punkt bewußtlos. Danach 
ist er allerdings noch 
zorniger, d.h. er fährt 
schneller und schießt öf¬ 
ter. Hast Du 45 (Spiel-) 
Minuten überstanden 
oder bist Du vom Lehrer 
erwischt worden, ist die 
erste Stunde zu Ende, 
und der Computer er¬ 
rechnet die Zeugnisnote 
aus den erreichten Spick¬ 
punkten (wenn man 
nicht ohnehin schon eine 
Sechs hat). Jetzt folgt die 
zweite Schulstunde mit 
einem anderen Fach. Die 
Lehrer werden von Stun¬ 
de zu Stunde strenger, 
was sich in ihrer Ge¬ 
schwindigkeit und der 
Häufigkeit der Sehstrah¬ 
len zeigt. Sind alle sieben 
Stunden vorbei, wird aus 
der Summe der abgegebe¬ 
nen Schüsse und der Zahl 
der Spicksechser die Be¬ 
tragennote errechnet. An¬ 
schließend wird das Zeug¬ 
nis ausgegeben (wenn der 
Drucker angeschlossen 
ist, auch schwarz auf 
weiß). Durch Tasten¬ 
druck erscheint die Fra¬ 
ge, ob man noch einmal 
spielen will. Betätigt man 
die Taste „J“ beginnt das 
Spiel von vorne, aber oh¬ 
ne Titelbild. 

Noch ein paar Hinwei¬ 
se zum Gebrauch des Pro¬ 
gramms: 

1. Gesteuert wird Willi 
mit dem Joystick 1. 
Die Uhaken feuert 
man mit dem Feuer¬ 
knopf des Joysticks ab. 

2. Während des Lehrer¬ 
wechsels können über 
die Funktionstasten 
noch weitere Funktio¬ 
nen betätigt werden: 
mit „CLEAR“ kommt 
man zur Frage, ob man 
aufhören möchte. 

mit „AID“ kommt 
man zum Zeugnis, 
mit „BACK“ beginnt 
das Spiel von vorne. 

Peter Hlauna 


Musikkomposi¬ 

tionsprogramm 

Dieses Programm ist ganz 
der Musik gewidmet! Es 
bietet dem Benutzer die 
Möglichkeit der Eingabe 
einer Melodie mit bis zu 
125 Noten, wobei ihm 
die Auswahl zwischen 
Ein-, Zwei- oder Drei¬ 
klang angeboten wird. 
Die eingegebene Melodie 
kann nach einer eventuel¬ 
len Korrektur beliebig oft 
angehört werden. Zusätz¬ 
lich besteht die Möglich¬ 
keit, die Komposition auf 
Cassette zu speichern 
oder andere zu laden. Die 
im Menü angebotene Ein¬ 
leitung (Wahlnummcr 1) 
gibt Einzelinformationcn 
zur Programmhandha¬ 
bung. 

Bei Titelbild und 
Schlußbild setzt das 
Drücken einer beliebigen 
Taste das Programm fort. 

Benötigt werden für 
.das Programm nur die 
Konsole, ein Datenrecor¬ 
der und Spaß am TI. 

P.S. Dieses Programm 
darf nur mit der Konso¬ 
le,. ohne Xbasic-Modul 
und ohne angeschlossene 
Peripherie gefahren wer¬ 
den, da zur Dimensionie¬ 
rung der Felder fast der 
gesamte Speicherplatz be¬ 
nötigt wird. 

Glückliche Besitzer 
einer 32-K-Erweiterung 
können das Programm je¬ 
doch auch in Extended- 
Basic fahren. 

Alexander Saberschinsky 


nung 

Das Programm unter¬ 
scheidet zwischen sozial- 
versicherungs- und nicht 
sozialversicherungspflich¬ 
tigen Arbeitnehmern und 
errechnet nach Eingabe 
von Bruttojahreseinkom¬ 


men, Werbungskosten, 
Sonderausgaben, Zahl der 
Kinder und etwaiger Bau¬ 
kosten für ein Eigen¬ 
heim oder eine Eigen¬ 
tumswohnung das zu ver¬ 
steuernde Einkommen, 
die jährliche Einkommen¬ 
steuer, die jährliche Kir¬ 
chensteuer sowie monat¬ 
liche Arbeitnehmerbei¬ 
träge zur Kranken-, Ren¬ 
ten- und Arbeitslosenver¬ 
sicherung und das monat¬ 
liche Nettoeinkommen 
unter Berücksichtigung 
einer etwaigen Steuerer- 
sparnis nach § 7b EStG. 
Sollten die genauen Wer¬ 
te für Werbungskosten 
und Sonderausgaben 
noch nicht bekannt sein, 
zeigt das Programm die 
familienstandabhängigen 
Pauschalbeträge für diese 
Werte extra an. Nach Ab¬ 
schluß jeder Berechnung 
kann zu einer Druckrou¬ 
tine verzweigt werden, 
die die Werte „schwarz 
auf weiß“ festhält. 

Das Programm ist 
nicht nur für Steuerbera¬ 
ter bzw. Vermögensbera¬ 
ter interessant, sondern 
auch für jeden Arbeitneh¬ 
mer, der über seine Abga¬ 
ben Bescheid wissen 
möchte bzw. errechnen 
möchte, ob etwa eine Er¬ 
höhung der Sonderausga¬ 
ben über z.B..Lebensver¬ 
sicherung o.ä. zu einer 
Steuererspamis führt etc. 

Bei der Eingabe der 
Sozialversicherungsquo¬ 
ten am Anfang des Pro¬ 
gramms ist es wichtig, 
nur die Arbeitnehmer¬ 
anteile in % einzugeben. 

Thomas Ehlert 

Ädvantage 

Bei dem Spiel Advantage 
werden verschiedene far¬ 
bige Kugeln in ein Laby¬ 
rinth von beweglichen 
Hebeln geworfen, die je 
nach ihrer Stellung die 
Kugeln festhalten bzw. 
freigeben. 


Jeder Spieler muß eine 
vorgegebene Anzahl von 
Kugeln je Farbe durch 
das Labyrinth bringen. 

Der Spieler, dessen Ku¬ 
geln alle das Ende des La¬ 
byrinth zuerst erreicht 
haben, ist Sieger. 

TI-Fall: 

Flerzlich willkommen zu 
TI-Fall, einer mehr oder 
weniger gelungenen 

Nachahmung des berühm¬ 
ten Pitfall. Zu Beginn 
meiner Version von Pit¬ 
fall werden Sie mit den 
Rhythmen von La Cuca- 
racha gleich in die Ur- 
waldatmosphärc einge¬ 
stimmt. 

Und nachdem es sich 
um eine Nachahmung 
handelt, ist auch hier das 
Ziel des Spielers, mög¬ 
lichst viele Bilder unbe¬ 
schadet zu durchlaufen 
und dabei so viel Punkte 
zu sammeln, wie nur 
möglich. Punkte liegen 
dabei in Form von Gold¬ 
barren umher und um 
diese aufzusammeln, 
braucht man nur mit sei¬ 
nem. Männchen, genannt 
Cuthbert, darüberzulau¬ 
fen. 

Daß das Ganze natür¬ 
lich nicht so einfach ist, 
versteht sich eigentlich 
von v alleine. Lagerfeuer, 
Baumstämme, Skorpione, . 
Tümpel und gefährliche 
Vögel bilden den Reiz 
des Spieles. 

Mit ihrem Joystick 
haben Sie nun die Mög¬ 
lichkeit, ihren Cuthbert 
nach links oder rechts 
laufen zu lassen oder ihn 
mit dem Fire Button Hin¬ 
dernisse überspringen zu 
lassen. 

Leider ist das Listing 
nicht besonders übersicht¬ 
lich und daher nicht so 
einfach einzutippen, je¬ 
doch sollte Sie der Spiel¬ 
spaß dafür entschädigen. 

Michael Sch?iellerg f 


Steuerherech- 
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10 ! ********************** 


11 ! * * 

12 ! * TI -FALL * 

13 ! * * 

14 ! * Copyright by * 

15 ! * Michael Schneller * 

16 ! * * 

19 ! * Benoetigte Geraete * 

20 ! * TI99/4A Konsole * 

21 ! * Ext. Basic * 

22 ! * Joystick <1) * 

23 ! * * 

26 ! * Speicherbelegung * 

27 ! * ' 9093 Bytes * 

28 ! * * 


29 ! ********************** 

30 ! 

100 CALL CHAR(34,"FEFDFBF7EF 
DFBF7F7FBFDFEFF7FBFDFE") 

110 A$=RPT$<"F",16):: CALL C 
HAR(112,A$,96,A$,97,"0303030 
303030303"):: CALL C0LÜR(9,1 
2,2,10,12,2,11,13,11,1,11,1) 
120 CALL CHAR(113,""):: RAND 
QMI2E :: CALL SCREEN<2):: CA 
LL CLEAR :: CALL NAGNIFY(3) 
130 CALL CHAR(100,"0C0C001C1 
C38331800181414E2320203"&RPT 
$("0",32) ,104, "OCOCOOOCICICI 
C1C000COE0A3E28C80C "&RPT$ ( "0 
”,32)) 

140 CALL CHAR(108,"181800183 
C3A3A18001 86483000000 " &RPT$ ( 
"0 ,: , 32) ) 

150 CALL CHAR(116,RPT$("0" , 1 

3) &<"708D03C3033D72"&cRPT$ ( "0" 

, 17) C02F1F9FEF0E01" ) 

160 CALL CHAR(120,RFT$("0",1 
6) 8<"30408F9F7F0F0708"6«RPT$ ( " 
0" , 19) 8*"EB1C0C0C0B14E" ) 

170 CALL CHAR(124,RPT$("F" , 6 

4) ,128, "COFOFC"&RPT$("F" , 20) 
FCFOCOOOOOOOOOCOFQFCFEFEFC 

FOC" ) 

180 CALL CHAR(132,"000000000 
30F3F7F7F3F0F0300000000030F3 
F ” &RPT5 ( " F " , 20) & " 3F0F03 " ) 

190 CALL CHAR(136,RPT$ ("0",1 
6) 01071FFEFE1F0701 "8cRPT$ ( " 

0",16)80E0F87F7FF8E03") 

200 CALL CHAR(48,"00FEC6C6C6 
C6C6FE",49,"0013181813181818 
",50,"00FE0606FEC0C0FE",51," 
00FE06063E0606FE") 

210 CALL CHAR(52,"00D8D3D8FE 
181818",53,"00FEC0C0FE06Q6FE 
",54,"00C0C0C0FEC6C6FE",55," 
00FE06063E060606") 

220 CALL CHAR(56,"00FEC6C6FE 
C6C6FE",57,"0OFEC6C6FE060606 
" ) 


230 RESTORE 1020 :: FOR 1=65 

to 90 :: read c$ :: call ch 
AR(I,C$):: NEXT I 
240 CALL CHAR(92,"0000000000 
30CD030301000000000000000000 
0000GCB3C0C08") 

250 RESTORE 1160 :: FOR 1=1 

to 5 :: read v(i):: next i 

260 CALL CHAR(33,"FF818131FF 
818181",140,"0103070F0F0F0F0 
70300010204040201C0E0B0D3D3B 
3F8F0E08") 

270 DIM SPS(91),LL(91)I: HI= 
o :: M ( l ) =97 :: M(2)=225 : : 
DEF SKS=INT(200*RND)+40 
280 CALL CHAR(42,"1082105400 
FEFEFEFF813181FF818181"):: C 
ALL COLOR(2,16,11) 

290 RESTORE 1080 :: FOR LI=i 
TO 91 :: READ SPS(LI),L :: 

LL(LI)=1000/L :: NEXT LI 
300 CALL CHAR(44,"0000010103 
0303070D1E3F767E7D3F1F008030 
C0C0C0A0F0F8AC7CBECEFEBCF8") 

310 CALL VORSPANN(SPS(),LL() 

):: ma= 4 :: \=3i :: _=-l :: 

CALL CLEAR :: CALL BAUM :: C 
ALL HCHAR(24,15,100,MA-1);: 
c <1) = 100 :: c(3)=104 
320 DISPLAY AT<24,19):"HI:"5 
HI :: GOTO 600 

330 G=1 :: DISPLAY AT(24,19) 

:"Hl:";HI 

340 CALL JOYST(1,X,Y):: 

:: CALL KEY(1,K,S):: IF Y=4 
THEN 520 ELSE CALL MOTION(# 
1,0,X*1.5):: IF K=i3 THEN 81 
0 ELSE CALL POSITION(#1,Y1,N 
) 

350 IF N<15 THEN 510 ELSE IF 
N>240 THEN 600 ELSE CALL PA 
TTERN(#1,C(_+2)):: CALL GCHA 
R( ( (\ + 7) /8) +1, ( (N + 7) / 8) , H).: '• 
IF H=32 THEN 540 ELSE IF H= 
42 THEN 570 

360 ON Q GOTO 340,330,420,43 

0,490,450,420 

370 GOTO 340 

380 C=C+1 :: CALL COINC(ALL, 
E):: IF E THEN 910 ELSE IF C 
=4 THEN 390 ELSE 370 
390 IF 0=0 THEN CALL SPRITE( 
#2,124,5,31,113,#3,128,5,81, 
129,#4,132,5,81,97):: C=0 EL 
SE CALL DELSPRITE(#3,#2,#4): 
I C=0 

400 IF 0=0 THEN 0=1 ELSE 0=0 
410 GOTO 370 

420 CALL COINC(ALL,E):: IF E 
THEN 910 ELSE 340 
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430 CALL POSITION(#2,Y2,X2): 
: CALL MOTION(#2,0,SGN(N-X2) 
*5):: IF SGN(N-X2)=-l THEN C 
ALL PATTERN(#2,116)ELSE CALL 
PATTERN(#2,120) 

440 GOTO 420 ' 

450 FE=-FE : ON FE+2 GOTO 4 
60,460,470 

460 CALL L0CATE(#2,73,80) : : 
GOTO 480 

470 CALL LOCATE(#2,193,1) 

480 GOTO 420 

490 zv=zv+i :: if zv>5 then 
ZV=0 

500 CALL M0TI0N<#11,VMZV) ,-l 
0):: GOTO 420 

510 CALL M0TIQN<#1,0,0):: CA 
LL LOCATE(#1,\,20):: GOTO 34 

0 

520 CALL MOTION(#1,0,0):: CA 
LL GCHAR(INT((\ + 7)/8)-2, INT( 
(N+7)/8),H):: IF H=33 THEN 5 
30 ELSE 360 

530 FOR 0=153 TO 81 STEP -9 
:: CALL LOCATE(#1,0,121):: C 
ALL SOUND(-100,0+100,0):: NE 
xt o :: \=3i :: goto 360 
540 CALL MOTION(#1,0,0):: CA 
LL MOTION(#1,30,0):FOR 0=1 

TO ioo :: next e :: call mo 

TION(#1,0,0):: CALL LOCATE(# 
1,153,N) 

550 \=153 :: CALL SOUND(-100 
,-8,0,220,30,220,30,330,30) : 

: GOTO 340 
560 GOTO 360 

570 CALL MOTION(#1,0,0,#2,0, 
0,#il,0,0):: FOR S0U=0 TO 30 
STEP 2 :: CALL SOUND(-100,3 
80,SOU,640,SOU):: NEXT SOU 
580 FOR @=1 TO 10 :: P=P+100 

:: call PU(P):: call sound( 
-50,843,1):: NEXT 0 
590 CALL HCHAR(((\+7)/8)+l,( 
(N+7)/8),113):: CALL PU<P):: 
GOTO 340 

600 CALL DELSPRITE(ALL):: FO 
R S=0 TO 30 STEP 2 :: CALL S 
OUND(-100,262,S,330,S,392,S) 

:: NEXT S 

610 p=p+ioo :: call PU(P):: 
S=INT(7*RND)+1 

620 CALL HCHARdO,1,113,128) 
:: CALL UCHAR<15,16,32,4):: 
CALL HCHAR(19,1,113,128) 

630 ON Q GOSUB 650,660,670,7 
10,800,750,780 

640 CALL SPRITE<#1,100,5,\,2 
0):: GOTO 340 

650 CALL LOCH(l):: CALL BAR( 
2):: RETURN 


660 o,c=o :: call bar(d:: r 
ETURN 

670 CALL LOCH(1):: G=INT(2*R 
ND)+1 :: FOR @=i to G :: cal 
L SPRITE(#0+1,136,12,81,M(G) 

);: NEXT 0 

680 D=INT(2#RND)+1 :: FOR 0= 
1 TO D :: CALL SPRITE(#0+4,1 
36,12,153,M(0)):: NEXT 0 
690 R=INT(7*RND)-12 :: R1=IN 
T(5*RND)-13 :: FOR 0=1 TO G 
:: CALL MOTION(#0+1,0,R):: N 
EXT 0 

700 FOR 0=1 TO D :: CALL MOT 
ION(# 0 + 4 , o, Ri) :: NEXT 0 :: r 
ETURN 

710 CALL LOCH(l):: @=INT(2*R 
ND):: IF 0=1 THEN CALL SPRIT 
E ( #2,116, 16,81,SKS,0,-5)ELSE 
CALL SPRITE(#2,116,16,153,S 
KS,0,-5) 

720 IF 0=1 THEN YG=153 ELSE 
Y G = 81 

730 U=INT(2*RND)+1 :: FOR 0= 

1 TO U :: CALL SPRITE(#0+2,1 
36,12,YG,M(0)):: NEXT 0 :: 3 

= INT <5*RND)-13 

740 FOR 0=1 TO U :: CALL MOT 
Ion(# 0 + 2 , 0 ,3):: NEXT 0 : : RE 
TURN 

750 CALL BAR(2):: CALL HCHAR 
(12,11,34):: CALL HCHAR(12,1 
2,35):: CALL SPRITE(#2,44,7, 
73,80):: CALL LOCH(2) 

760 0=INT(2*RND):: IF 0=0 TH 

EN FE=-1 ELSE FE=1 

770 IF RND >.5 THEN CALL SPRI 

TE(#3,136,2,153,240,0,INT(6* 

RND)-12):: RETURN ELSE RETUR 

N 

780 CALL SPRITE(#2,124,5,81, 

113,#3,132,5,81,97,#4,128,5, 
81,129,#10,140,7,65,97,0,9) 
790 CALL BAR(1):: RETURN 

800 zv=o :: call sprite(#ii, 

92,16,65,233):: CALL BAR(1): 

: RETURN 

810 CALL MOTION(#11,0,-7):: 
CALL SOUND(50,380,0):: CALL 
PATTERN(#1,108) 

820,FOR 0=-18 TO 18 STEP 6 : 

: CALL M0TI0N(#1,@,X*2.5) : : 
CALL POSITION(#1,Y1,N):: IF 
N<10 THEN 510 ELSE IF N>240 
THEN 600 

830 CALL COINC(ALL,E):: IF E 
THEN 850 

840 NEXT 0 :: CALL MOTION(#1- 
,0,X*2.5) : : CALL LOCATE (#1,\ 

,N):: GOTO 350 
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850 CALL MOTION(#1,0,0,#10,0 
,0):: CALL COINC(#1,#10,15,E 
)I: IF E=0 THEN 910 
860 CALL MOTION(#1,0,9,#10,0 
» 9 ) 

870 FOR S=1 TO 90 :: CALL SO 
UND(LL(S),SPS(S),0):: CALL K 
EY(1,K,Z):: IF K=18 THEN 890 
880 NEXT S :: GOTO 870 
890 CALL SOUND(-100,392,0):: 

CALL MOTION(#1,0,0):: CALL 
POSITION(#1,Y1,N):: CALL LOC 
ATE < #1,\,N) 

900 GOTO 360 

910 CALL MOTION(#1,0,0 )ll CA 
LL DELSPRITE(#2,#3,#4,#5,#6, 
#7,#8):: FOR 1=1 TO 10 :: ca 
LL SOUND(-10,262,0) 

920 CALL SOUND(-10,523,0 ):\ 
NEXT I :: CALL MOTION(#1,120 
,0) 

930 CALL POSITION(#1,Y1,N):: 

IF Y1<185 THEN 930 
940 CALL DELSPRITE(#1):: FOR 
(2=0 TO 30 STEP 2 : : CALL SO 
UND(-50,-6,0):: NEXT 0 
950 MA=MA-1 :: CALL HCHAR(24 
,15,32,3):: IF MA=0 THEN 970 
ELSE CALL HCHAR(24,15,100,M 
A-l ) 

960 GOTO 600 

970 CALL DELSPRITE(ALL):: DI 
SPLAY AT(17,7):"G A M E 0 
V E R" :: IF P>HI THEN HI=P 
:: DISPLAY AT (24,19) :"HI: ";H 
I 

980 CALL VCHAR(15,16,32,4) 
990 FOR S=i TO 91 :.* CALL SO 
UND(LL(S),SPS(S),0)I: CALL K 
EY(0,K,Z):: IF Z=0 THEN 
1000 ELSE 1010 
1000 NEXT S :: GOTO 990 
1010 CALL clear :: P=o :: GO 
TO 310 

1020 DATA 00FEC6C6C6FEC6C6,0 
0FEC6C6F8C6C6FE,OOFECOCOCOCO 
COFE,00F8C6C6C6C6C6F8,OOFECO 
COF8COCOFE 

1030 DATA OOFECOCOFOCOCOCO,0 
0FEC0C0DEC6C6FE,00C6C6C6FEC6 
C6C6,0018181818181818,00FE06 
0606C6C6FE 

1040 DATA OOCCCCCCFOCCCCCC,0 
OCOCOCOCOCOCOFE,00FED6D6C6C6 
C6C6,00F6F6F6F6CECECE,00FEC6 
C6C6C6C6FE 

1050 DATA 00FEC6C6FEC0C0C0,0 
OCCCCCCCCCEFD,00FEC6C6FEE0D8 
C6,OOFECOCOFEO 6 O 6 FE,00FE1818 
18181818 

1060 DATA 00C6C6C6C6C6C6FE,0 


066666666131813,00C6C6C6D6D6 
D6FE,00C6C6C638C6C6C6 
1070 DATA 00C6C6FE30303030,0 
OFE06C638OCOFE 

1030 DATA 131,8,131,8,131*8, 

175.8.30000.4.220.8.30000.8, 

131.8.131.8.131.8 

1090 DATA 175,8,30000,4,220, 
8,30000,2,30000,8,175,4,175, 

3.165.8.165.8.147.8.147.8 

1100 DATA 131,2,30000,3,131, 
8,131,8,131,8,165,3,30000,4, 
196,3,30000,8,131,3,131,8,13 

1.8 

1110 DATA 165,8,30000,4,196, 
8,30000,2,30000,3,262,4,294, 

3.262.8.233.8.220.3.196.8 
1120 DATA 220,3,175,8,175,8, 
131,4,131,8,175,3,175,8,220, 
3,220,8,262,4,220,8,220,2 
1130 DATA 30000,3,262,4,294, 
3,262,3,233,8,220,8,262,8,23 
3,3,196,3,196,2,30000,8,131, 

4 

1140 DATA 131,8,165,3,165,8, 
196,8,196,8,233,3,196,8,196, 

2.30000.3.233.4.233.8.262.8, 

233.3.220.8 

1150 DATA 196,8,220,3,175,8, 
175,2,30000,8/220,3,175,3,17 

5.3.175.8 

1160 DATA 10,5,0,-5,-10 
1170 SUB BAUM 

1180 FOR 0=3 TO 21 STEP 9 :: 

DISPLAY AT(1,0):" ppp" :: 
DISPLAY AT(2,0): pppppp" 
1190 DISPLAY AT(3,0):"pppppp 
pp" :: DISPLAY AT(4,0):" ppp 
ppp" :: DISPLAY AT(5,0): " p 

ppp” 

1200 DISPLAY AT(6,0)'a 
" :: DISPLAY AT(7,0):"...''* 
" :: DISPLAY AT(8,0):".. *' r " 
:: DISPLAY AT (9,0) " ' ' ' ' ' * T 

II 

1210 NEXT 0 :: CALL HCHAR(10 
,1,113,123):: CALL HCHAR(14, 
1,112,32):: CALL HCHAR(19,1, 
113,123) 

1220 CALL HCHAR(23,1,112,32) 

:: SUEEND 

1230 SUB TI(Z):: FOR 0=1 TO 

z :: next 0 :: subend 

1240 sub pu(P):-: Display at( 

24,l)si ze (7): p :: subend 

1250 SUB LOCH (CD 

1260 ON [] GOTO 1270,1280,12 

90 

1270 @=INT(2*RND)I: IF 0=1 T 
HEN CALL HCHAR(12,8,32,2):: 
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CALL HCHAR(13,8,32,2) 

1280 G=INT(2*RND):: IF @=1 T 
HEN CALL HCHAR<12,15,32,3) : : 

CALL HCHAR(13,15,32,3):: CA 
LL VC HAR (15, 16,-33,4) 11 CALL 
HCHAR(13,16,33) 

1290 G=INT<2*RND):: IF 0=1 T 
HEN CALL HCHAR(12,25,32,2) : : 

CALL HCHAR(13,25,32,2) 

1300 SUBEND 

1310 SUB VORSPANN(SPS(),LL() 

) 

1320 CALL BAUM :: CALL HCHAR 
(19,1,32,160):: CALL VCHAR(1 
7,4,96,5) 

1330 CALL HCHAR(17,2,96,5) : : 

CALL VCHAR(17,8,96,5):: CAL 
L HCHAR(19,10,96,2):: CALL V 
CHAR(17,13,96,5) 

1340 CALL HCHAR(17,14,96,3): 

: CALL HCHAR(19,14,96,2):: C 
ALL VCHAR(17,18,96,5): : CALL 
HCHAR(17,19,96,2):: CALL VC 
HAR(17,21,96,5) 

1350 CALL HCHAR(20,19,96,2) : 

: CALL VCHAR(17,23,96,5):: C 
ALL HCHAR(21,24,96,3):: CALL 
VCHAR(17,28,96,5) 

1360 CALL HCHAR(21,29,96,3): 

: DISPLAY AT (24,1 ): "<01985 
BY MICHAEL SCHNELLER" 

1370 FÜR 0=3 TO 8 :: CALL CO 
LOR(0,16,1):: NEXT 0 
1380 FÜR S=1 TO 90 :: CALL S 
OUND(LL(S),SPS(S),0):: CALL 
KEY(0,K,Z):: IF Z=0 THEN 139 
0 ELSE SUBEXIT 
1390 NEXT S ::-GOTO 1380 
1400 SUBEND 

1410 SUB BAR(\):: ON \ GOTO 
1420,1430 

1420 e=INT(5*RND):: IF @>2 T 
HEN CALL HCHAR(21,20,42) 

1430 e=INT(5*RND);: IF 0>2 T 
HEN CALL HCHAR(12,23,42) 

1440 SUBEND 


UNSER 

® TELEFONSERVICE S 

Leserbriefe und Fragen sind uns stets willkommen. 
Wir beantworten sie entweder direkt oder auf 
der Leserbriefseite 
ACHT UNG !! 1 

Wie immer steht unseren Lesern unser Telefon- 
Service zur Verfügung! Jeden Dienstag von 15 bis 
19 Uhr . Für technisch e Fragen; 0731/33 220 und 
für List ings/Programme: 089_/_l 29 80 1 3 


10 
11 
12 

13 

14 

15 

16 

19 

20 
21 
22 
23 
26 

27 

28 

29 

30 

400 randomize :: Q=i :: GES= 
3 :: schwer=.08 :: zeit,coun 
t,p,ru,sch=o :: fach$="relig 
ION" 

410 ! 

420 ! ZEICHENDATAS 
430 ! 

440 DATA 030F1F312E0E6EF1,BE 

DD5D0E07020206,C0F0F88C74707 

68F,7DB9BB72E24060 

450 DATA 030F1F312E0E6EF1,BE 

9DDD4E47020600,C0F0F88C74707 

68F,7DBBBA70E0404060 

460 DATA OF1F30203F292620,21 

200113100C03,F8FC0602FE4A328 

2,4202C0E40418E0 

470 DATA 0047CFDFFF7F1F0F,07 

03,00E2F3FBFFFEF8F0,EOCO 

480 DATA 0505050505050505,,4 

040404040404040, 

490 DATA 0000010204040404,,0 
000804020202020, 

500 DATA FFFFFFFFFFE1EFE1,EF 
E1EFE1EFE1FFFF,FFFFFFFFFFOFE 
FOF,EFOFEFOFEFOFFFFF 
510 RESTORE :: FOR 1=96 TO 1 
23 :: read a$ :: call char(I 
,a$):: NEXT i 

520 CALL CHAR(142,"010204081 
0204080FF") 

530 CALL C0L0R<12,7,7,10,2,1 
6,14,1,16,13,13,13,1,16,16) 
540 ! BILDSCHIRMAUFBAU 
550 CALL CLEAR :: CALL SCREE 
N(2):: CALL MAGNIFY <3) 

560 DISPLAY AT(1,3)5"0 MIN"8< 
RPT$(CHR*(129) , 14) 8c"PKT 0" 
570 FOR 1=6 TO 21 STEP 5 
580 DISPLAY AT<I,1):"xzxz... 
.xzxz....xzxz....xzxzy(y{... 
.y{y{....y{y{....yfyflnln... 
.lnln...,lnln....lnlnmomo... 
.momo. . . .momo. . . .momo" 

590 NEXT I 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SPICKZETTEL 

Copyright by 
Peter Hlawna 

Benoetigte Geraete 
TI99/4A Konsole 
Ext. Basic 
Joystick (1) 

Speieherbeiegung 
11576 Bytes 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


********************** 





600 CALL TUERAUF I: CALL SPR 
ITE(443,104,2,17,256,0,-7):: 
CALL GONG *: : CALL TUERZU 
610 DISPLAY AT(1,15-LEN(FACH 
$)/2)SIZE(LEN(FACH$)):FACH$ 
620 . CALL POSITION (113, Y, X) : : 

IF X<25 THEN 640 ELSE CALL K 
EY(0,K,S)i: IF SCI THEN 620 
630 IF K=1 THEN 1520 ELSE IF 
K=2 OR K=15 THEN CALL CLEAR 
:: CALL DELSPRITE(ALL):: CA 
LL HCHAR(1,1,47,768):: GOTO 
1780 ELSE 620 

640 CALL NOTION(#3,0,0):: FO 
R 1=1 TO 300 :: NEXT I 
650 ! SPIELBEGINN 
660 CALL COLOR(12,7,8) 

670 CALL HCHAR(23,19,32,2) : : 

CALL HCHAR(24,19,32,2) 

680 CALL SPRITE<441,96,14,177 
,145) 

690 WERT=INT<RND*5)+1 :: ON 
WERT GQSUB 1900,1920,1940,19 
60,1980 

700 ORTV=INT<RND*4)*64+25 :: 

ORTH = INT <RND*4)*40 + 42 
710 CALL SPRITE(«4,128,16,OR 
TH,ORTV) 

720 CALL JOYST(1,XJ,YJ) 

730 CALL MOTION< 441,-2*Y J , 2*X 
J) 

740 IF XJ=0 AND YJ=0 THEN 76 
0 

750 Q=-Q :: CALL PATTERN(#1, 
98+2*Q) 

760 CALL KEY(1,K,S) 

770 IF K=18 THEN 840 

780 CALL CGINC<#1,#4,10,A):: 

IF A=-1 THEN 1130 
790 ZEIT=ZEIT+1 :: IF ZEIT/1 
0=1NT <ZEIT/10)THEN DISPLAY A 
T <1,2)SIZE(2):USING M 44 44 H :ZEI 
T/10-.5 :: IF ZEIT>=450 THEN 
1170 

800 CGUNT=COUNT +1 :: IF COUN 
T<50 THEN 720 

810 CALL POSITION(441,Yl,Xi,44 
3,Y2,X2):: CALL MOTION (443,0, 
SGN(X1-X2)*GES) 

820 IF RNDCSCHWER THEN 970 E 
LSE 720 

830 ! SCHUSS MAENNCHEN 
840 CALL POSITION < #1,Yi,XI): 

: CALL SPRITE(#2,116,13,Y1,X 

1,-100,0):: sch=sch+ l :: p=m 
AX(P- l,0) 

850 CALL COINC <443,442, 10, A) : : 

IF a=-1 THEN 940 
860 CALL COINC (443, #2, 10, A) : : 
IF A=-1 THEN 940 


870 CALL CO INC (443,442, 10,A) : : 
..IF A=-1 THEN 940 
880 CALL CO INC (443, #2, 10, A) : : 

IF A=-1 THEN 940 
890 CALL COINC (443,442, 10, AJ : : 

IF A=-1 THEN 940 
900 CALL COINC(443,442, 10, A) : : 

IF A=-1 THEN 940 
910 CALL COINC (443,442, 10, A) : : 

IF A=-1 THEN 940 
920 CALL COINC (443, #2, 10, A) : : 

IF A=-1 THEN 940 
930 CALL COINC (443, #2, 10, A) : : 

IF A=-1 THEN 940 ELSE DISPL 
AY AT (1,26 ) I USING " 44 44 44 ":P :: 

CALL DELSPRITE (442) : : GOTO 7 
80 

940 CALL DELSPRITE ( 442 ) : : DIS 
PLAY AT ( 1,26) : USING " 44 44 44 " :P 
950 CALL MOTION (443,0,0) : : FO 
R 1=0 TO 20 STEP 2 :: CALL S 
ound(-100, -5, i):: next i :: 
count=0 :: ges=ges+i :: schw 

ER=SCHWER+.02-:: GOTO 780 

960 ! SCHUSS LEHRER 

970 CALL POSITION( 443 , Y2,X2) *. 

: CALL SPRITE(442, 112, 1 1 , Y2, X 
2 ,100,0) 

980 CALL COINC ( 441 , 442 , 10 , A) : : 

IF A=-1 THEN 1090 
990 CALL COINC (441,442, 10, A) : : 
IF A=-1 THEN 1090 


1000 

CALL 

COINC ( 441 , 442, 10, A) : 

: if 

A=- 1 

THEN 1090 

1010 

CALL 

COINC (441 , 442, 10 , A) : 

: if 

A=-1 

THEN 1090 

1020 

CALL 

COINC (441 , 442 , 10 , A) : 

: if 

A=-1 

THEN 1090 

1030 

CALL 

COINC (441,442, 10, A) : 

: IF 

A=-1 

THEN 1090 

1040 

CALL 

COINC (441 , 442, 10, A) : 

: if 

A=- 1 

THEN 1090 

1050 

CALL 

COINC (441 , 442, 10, A) : 

: IF 

A=-1 

THEN 1090 

1060 

CALL 

COINC (441 , 442, 10, A) : 

: IF 

A=-1 

THEN 1090 

1070 

CALL 

COINC (#1,442, 10, A) : 

: if 

A=-1 

THEN 1090 

1080 

CALL 

COINC (441 , 442, 10, A) : 

: IF 

A=-i 

THEN 1090 ELSE CAL 


L DELSPRITE (442) : : GOTO 720 
1090 CALL DELSPRITE (442) : : CA 
LL MOTION (441, 0,0, 443, 0,0) 

1100 FOR 1=550 TO 110 STEP - 
io :: call sound(-100,1,5):: 
NEXT I 

liio P=o :: sch=sch+5 :: got 

0 1170 

1120 ! SPICKPUNKTE GEFRESSEN 
1130 CALL MOTION(#1,0,0) :: C 
ALL DELSPRITE (444 ) : : CALL SOU 
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ND (-"100, 110,5) : : CALL SOUND < 
-100,330,5):: CALL SOUND(-10 
0,500,5) 

1140 P=P+WERT :: DISPLAY AT < 

1,26) :USING "###":P 

1150 COUNT=50 :: GOTO 690 

1160 ! STUNDE VORBEI 

1170 NOTE(RU)=1 

1180 IF PC.100 THEN NOTE(RU)= 

2 

1190 IF P<80 THEN N0TE(RU)=3 
1200 IF P< 60 THEN NOTE(RU)=4 
1210 IF P<40 THEN N0TE(RU)=5 
1220 IF P<20 THEN N0TE(RU)=6 
1230 CALL DELSPRITE(#4):: CA 
LL MOTION(#1,0,0,«3,0,0) 

1240 CALL GONG :: CALL COLOR 
(12,7,7):: CALL TUERAUF :: C 
ALL MOTION (443,0,7) 

1250 CALL POSITION(#3,Y2,X2) 

:: IF X2 >250 THEN 1280 ELSE 
CALL KEY(0,K,S):: IF S=0 THE 
N 1250 

1260 IF K=1 THEN 1520 ELSE I 
F K=2 OR K=15 THEN CALL CLEA 
R :: CALL DELSPRITE(ALL):: C 
ALL HCHAR(1,1,47,768):: GOTO 
1780 

1270 GOTO 1250 

12S0 CALL DELSPRITE(#3):: CA 
LL TUERZU :: CALL HCHAR(1,10 
,129,14) 

1290 RU=RU+1 :: ÖN RU GOSUB 
1340,1370,1400,1430,1460,149 
0,1510 

1300 ZEIT,COUNT,P=0 :: CALL 
HCHAR(1,27,32,5):: CALL HCHA 
R(i,1,32,5) 

1310 GOTO 600 
1320 ! NEUE STUNDE 
1330 ! ERDKUNDE 

1340 CALL CHAR(104,"0F1F1804 - 
0F1424380E0F031F3F7F7C30F038 
7C7EFE666F57070686C8F") 

1350 FACH$="ERDKUNDE" :: GES 
=4 :: schwer^ .08 :: return 

1360 ! BIOLOGIE 
1370 CALL CHAR(104,"0730405C 
422869616240422F3C1B0F07E018 
047484282C0C8C0484E878B0E0C0 
*) 

1380 SCHWER=.08 :: FACH$="BI 

ologie" :: ges=4 :: return 

1390 ! LATEIN 

1400 CALL CHAR(104,"00070E10 
08101F30508870100C13080700F0 
183C3C66D62A0A2A1204040830C0 
" ) 

1410 SCHWER=.12 :: FACH$="LA 
TEIN" :: ges=5 :: return 


1420 ! ENGLISCH 
1430 CALL CHAR(104,"030F3C20 
1010213F60A0C422211D101F80E0 
7070F8F8FCBC1C5C3C1818284080 
" ) 

1440 SCHWER=.13 :: FACH$="EN 
glIsch" :: ges=5 :: return 
1450 ! DEUTSCH 

1460 CALL CHAR(104,"071E3832 
30101008030908090A040201F03C 
0E2606048488884808C8281020C0 
" ) 

1470 SCHWER=.15 :: FACH$="DE 

utsch" :: ges=6 :: return 

1480 ! MATHEMATIK 
1490 CALL CHAR(104,"0A0F1F38 
323512101011101013090807A8F8 
FCOE2656240404440404E4C808FO 
" ) 

1500 SCHWER=.17 :: FACH$="MA 
THEMATIK" :: GES=6 :: RETURN 
1510 ! ZEUGNIS 

1520 CALL CLEAR :: CALL DELS 
PRITE(ALL):: CALL CHARSET :: 

CALL HCHAR(1,1,47,768):: CA 
LL TAFEL 

1530 CALL SCHRIFT(6,9,"ABSCH 
LUSSZEUGNIS") 

1540 CALL SCHRIFT(8,9,"FUER 
"&NAME$) 

1550 CALL SCHRIFT(10,9,"RELI 

GION." ScSTR$ (NOTE ( 0 ) ) ) : : 

CALL SCHRIFT(11,9,"ERDKUNDE 

."&STR$(NOTE(1) ) ) 

1560 CALL SCHRIFT(12,9,"BIOL 

OGIE." &STR$ (NOTE (2) ) ) : : 

CALL SCHRIFT(13,9,"LATEIN.. 

." ßcSTR$ (NOTE (3) ) ) 

1570 CALL SCHRIFT(14,9,"ENGL 

ISCH." &STR$ (NOTE (4) ) ) : : 

CALL SCHRIFT(15,9,"DEUTSCH. 

."&STR$(NOTE(5))) 

1580 CALL SCHRIFT(16,9,"MATH 

EMATIK_"&STR$ (NOTE (6) ) ) 

1590 IF SCH<26 THEN BETR$="S 
EHR GUT" 

1600 IF SCH>25 THEN BETR$="G 
UT" 

1610 IF SCH>50 THEN BETR$="S 
CHLECHT" 

1620 IF SCH>75 THEN BETR*="S 
EHR SCHLECHT" 

1630 CALL SCHRIFT(18,9,"BETR 
AGEN: " 8cBETR$) 

1640 IF D$< >"J" AND D$<>"j" 
THEN 1750 

1650 ! ZEUGNIS AUSDRUCKEN 
1660 OPEN #1:"RS232" 

1670 PRINT #1:TAB(6)J"ABSCHL 

usszeugnis": : : : : 

1680 PRINT #l:TAB(4> 5 "-fuer " 
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|NAME$: :"Schueler des TI-Gy 
mnasiums": : : 

1690 PRINT #1:TAB(6)5"Religi 

on."|STR$(N0TE<0) ) : : 

TAB (6) ; "Erdkunde." I ST 

R$(NOTE (1)) I 

1700 PRINT #l:TAB(6)5"Biolog 

ie."|STR*(N0TE<2) ) : : 

TAB < 6) i "Latein."IST 

R$(NOTE(3)): 

1710 PRINT #1:TAB(6) j "Englis 

ch." STR$(N0TE<4) ) : : 

TAB (6) I " Deutsch."IST 

R$(NOTE(5))I 

1720 PRINT #i:TAB<6)I"Mathem 
atik. M ; STR$ (NOTE (6) ) : : 

1730 PRINT #l:"Das Betragen 
des Schuelers war durchwegs 
";BETR$|".":"Die Mitarbeit 1 
iess zu wuenschen uebrig." 
1740 CLOSE «1 

1750 FOR 1=1 TO 500 :: CALL 
KEY(0,K,S):: IF SOO THEN 17 
90 

1760 NEXT I 

1770 ! NEUES SPIEL ? 

1780 IF K=15 THEN 1820 
1790 CALL TAFEL :: CALL SCHR 
IFT(8,3, "WILLST DU WEITERMAC 

HEN ODER.GLEICH VON DER 

SCHULE GEHEN?") 

1800 CALL KEY(0,K,S):: IF S= 

0 THEN 1800 

1810 IF K< >74 AND KO106 THE 
N END 

1820 CALL TAFEL 

1830 CALL SCHRIFT<10, 14, "NAM 

EI ") 

1840 ACCEPT AT(13,8)VALIDATE 
(UALPHA)SIZE(-14):NAME$ 

1850 CALL TAFEL :: CALL SCHR 
IFT(10,3,"IST DER DRUCKER AN 
GESCHLOSSEN") 

1860 CALL KEY(0,K,S):: IF S= 
0 THEN 1860 

1870 D$=CHR$(K):: FOR 1=0 TO 

6 :: Note(I)=0 :: next i 

1880 CALL TAFEL :: GOTO 400 
1890 ! CHARDEFINITIONEN FUER 
SPICKPUNKTE 

1900 CALL CHAR(128,"00000000 
03070F0303030303",130,"",131 

ii ii ^ 

1910 RETÜRN 

1920 CALL CHAR(128,"00000000 
0307060000010307070000000000 
0000C0E06060E0C080E0E0") 

1930 RETURN 

1940 CALL CHAR(128,"00000000 


0307000303000703000000000000 
OOOOCOEO 6 OEOEO 6 OEOCO") 

1950 RETURN 

1960 CALL CHAR (128,"00000000 
0606060607070000000000000000 
OOOOOOOOCOCOEOEOCOCO") 

1970 RETURN 

1980 CALL CHAR<128,"00000000 
0707060707000707000000000000 
0000E0E000E0E060E0E0") 

1990 RETURN 

2000 DATA 500,784,500,659,50 
0,587,500,659,300,44733 
2010 DATA 500,659,500,784,50 
0,784,200,698,200,659,500,58 
7,300,44733 

2020 DATA 400,659,400,622,40 
0,659,400,622,400,659,400,62 
2,500,784 

2030 DATA 200,330,200,311,20 
0,330,200,311,200,330,200,31 
1,300,349 

2040 DATA 200,262,300,262,40 
0,294 

2050 ! UNTERPROGRAMME 
2060 SUB TAFEL 

2070 CALL CHAR(47,"FFFFFFFFF 
FFFFFFF" ,128, "FEFEFEFEFEFEFE 
FE" ) 

2080 CALL C0L0R(13,13,2,9,15 
,15,1,13,13,0,13,13)I: FOR I 
=2 TO 8 :: CALL COLOR<1,16,1 
3) ;2 NEXT I 

2090 FOR 1=19 TO 24 :: CALL 
HCHAR(1,11,96,12)1; NEXT I 
2100 FOR 1=1 TO 7 :: CALL VC 
HAR(6,1,32,13)!: NEXT I 
2110 CALL VCHAR(6,8,128,13) 
2120 FOR 1=9 TO 23 :: CALL V 
CHAR < 6,1,32,13)I: NEXT I 
2130 CALL VCHAR(6,24,128,13) 
2140 FOR 1=25 TO 32 :: CALL 
VCHAR(6,1,32,13)I: NEXT I 
2150 SUBEND 

2160 SUB TITEL(D$,NAME$) 

2170 CALL CLEAR :: CALL SCRE 

EN(2)i: CALL HCHAR(1,1,47,76 

8):: CALL TAFEL 

2180 CALL SCHRIFT(8,11,"WILL 

KOMMEN ZU"):: CALL VCHAR<12, 

12,47,5):: CALL HCHAR(12,13, 

47,3) 

2190 CALL HCHAR(16,13,47,3): 

: CALL HCHAR(14,13,47) 

2200 FOR 1 = 17 T.0 21 :: CALL 
HCHAR(I-5,1,47):: CALL HCHAR 
<33-1,1,47)::-NEXT I 
2210 CALL MUSIK :: CALL TAFE 
L 

2220 CALL SCHRIFT(10,14,"NAM 

e:"):: accept at(13,8)valida 
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TE(UALPHA)SIZE(-14) \ NAME$ 

2230 CALL TAFEL 

2240 CALL SCHRIFT(10,3,"IST 

DER DRUCKER ANGESCHLOSSEN M ) 

2250 CALL KEY (0., K, S) : : IF S= 

0 THEN 2250 

2260 D$=CHR*(K) 

2270 CALL TAFEL :: CALL SCHR 
IFT<10,3,"WILLST DU DIE SPIE 
LANLEITUNG") 

2280 CALL KEY(0,K,S):: IF S= 
0 THEN 2280 

2290 IF K< >74 AND KO106 THE 
N CALL TAFEL :: GOTO 2320 
2300 CALL TAFEL :: CALL SCHR 
IFT(7,2,"OBWOHL DU WEISST,DA 
SS IHR HEUTE EINIGE EX 

EN SCHREIBEN WERDET,HAST 

DU NICHTS GELERNT.") 

2310 CALL SCHRIFT(13,2,"SANN 

LE SPICKPUNKTE UND LEGE. 

LEHRER MIT UHAKEN LAHM. 

_HUETE DICH VOR SEHSTRAHL 

EN. " ) 

2320 SUBEND 
2330 SUB GONG 

2340 FOR 1=550 TO 220 STEP - 

uo :: for J=o to 18 :: call 
sound(- loo, i,J):: next j :: 

NEXT I 
2350 SUBEND 
2360 SUB TUERAUF 
2370 FOR 1=1*TO 3 :: CALL HC 
HAR(5-I,29+1,142)II NEXT I 
2380 FOR 1=1 TO 100 :: NEXT 
I 

2390 FOR 1=1 TO 3 :: CALL HC 

HAR(5-1,30,32,3):: NEXT I 

2400 CALL HCHAR(2,29,143,4) 

2410 SUBEND 

2420 SUB TUERZU 

2430 CALL HCHAR(2,29,32,4) 

2440 FOR 1=1 TO 3 :: CALL HC 

HAR(5-I,29+1,142):: NEXT I 

2450 FOR 1=1 TO 100 :: NEXT 

I 

2460 FOR 1=1 TO 3 :: CALL HC 
HAR(5-1,29+1,32)\: NEXT I 
2470 SUBEND 

2480 SUB SCHRIFT<Z,S,A$) 

2490 FOR 1=1 TO LEN(A$) 

2500 IF S-l+I>32 THEN Z=Z+2 
:: S=S-32 

2510 CALL HCHAR(Z,S-1+I,ASC( 
SEG*<A$,1,1))) 

2520 FOR J=1 TO 10 :: NEXT J 
:: NEXT- I 
2530 SUBEND 
2540 SUB MUSIK 

2550 FOR J=1 TO 2 :I RESTORE 


2610 :: for 1=1 to 23 :: re 
AD A,B,C,D :: CALL SOUND(A,B 
, 0, C, 9, D, 9) 

2560 CALL KEY(0,K,S):: IF S< 
>0, THEN 2700 
2570 NEXT I :: NEXT J 
2580 FOR J=1 TO 2 :: RESTORE 
2660 :: for 1=1 TO 20 :: re 
AD A,B,C,D :: CALL SOUND(A,B 
> 0, C, 9, D, 9) 

2590 CALL KEY(0,K,S):: IF S< 
>0 THEN 2700 

2600 NEXT I :: NEXT J :: GOT 
0 2550 

2610 DATA 300,494,494,494,10 
0,523,523,523,400,587,147,14 
7,400,587,185,220,300,587,18 

5.220.100.494.185.220 

2620 DATA 300,440,262,165,10 
0,494,262,165,400,392,196,19 
6,400,392,294,247,400,392,29 
4,247 

2630 DATA 300,494,494,494,10 
0,494,494,494,300,440,220,22 
0,100,392,220,220,400,330,16 

5.165.300.330.262.220 

2640 DATA 100,330,262,220,30 
0,494,196,196,100,494,196,19 

6.400.440.185.185.400.440.22 
0,220,800,440,262,262 

2650 ! DATA 400,44733,44733, 
44733 

2660 DATA 400,587,247,196,40 
0,587,247,196,400,587,247,19 

6.300.587.247.196.100.659.24 
7, 196 

2670 DATA 300,440,220,185,10 
0,440,220,185,300,440,220,18 

5.100.440.220.185.800.440.22 
0,185 

2680 DATA 300,440,220,185,10 
0,440,220,185,300,440,220,18 

5,100,440,220,185,800,440,22 
0, 185 

2690 DATA 300,392,247,196,10 
0,392,247,196,300,392,247,19 

6.100.392.247.196.800.392.24 
7,196 

2700 SUBEND 
2710 ! 

2720 ! ******************** 
2730 ! 

2740 ! AEHNLICHKEITEN DER 
2750 ! LEHRER MIT LEBEN- 
2760 ! DEN ODER TOTEN PER- 
2770 ! SONEN SIND REIN ZU- 
2780 ! FAELLIG !! 

2790 ! 

2800 ! ******************** 
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10 

i 

********************** 

11 

i 

* 


* 

12 

i 

* 

ADVANTAGE 

* 

13 

i 

* 


* 

14 

i 

* 

Copyright by 

* 

15 

i 

* 

Joerg Ruebesamen 

* 

16 

i 

* 


* 

19 

i 

* 

Benoetigte Geraete 

* 

20 

i 

* 

TI99/4A Konsole 

* 

21 

i 

* 

Ext. Basic 

* 

22 

i 

* 


* 

26 

1 

* 

Speicherbelegung 

* 

27 

; 

* 

4025 Bytes 

* 

28 

; 

* 


* 

29 

i 

********************** 


120 CALL CLEAR 

130 FOR 1=1 TO 72 :: PRINT " 
ADVANTAGE"} 

140 NEXT I 

150 DISPLAY AT(10,1):". 

.R 


UEBIOLA 1984 LTD 


160 OPTION BASE 1 
170 FOR 1=1 TO 7 :: CALL COL 
OR(I,16,15):: NEXT I :: CALL 
COLOR(10,10,15,11,16,15,12, 
2,15,9,13,15,8,16,15,0,15,15 
) 

180 DIM AM(3),K(4,30,2),C(3) 
190 c(l)=l20 :: C(2)=104 :: 

C(3)=112 

200 IF RND>.5 THEN PL=1 ELSE 
PL=1.5 

210 RANDONIZE 
220 ON WARNING NEXT 
230 DATA COFFFFFFICOE0703,03 
01,03FFFFFF3870E0C0,C0E0F078 
3C1E0F07,000000000000008 
240 DATA 0000000000000001,03 
070F1E3C78F0E,C08,1818181818 
181818 

250 DATA 4,4,4,10,4,16 
260 DATA 9,1,9,7,9,13,9,19 
270 DATA 14,4,14,10,14,16 
280 DATA 19,1,19,7,19,13,19, 
19 

290 A$="0000000A041F040A" :: 

CALL CHAR(120,A$,104,"00000 
01F1F1F1F1F",112,A$) 

300 FOR 1=88 TO 96 : : READ A 

$ :: call char<i,a*>:: next 

I 

310 CALL HCHAR(1,1,30,768) 
320 FOR 1=6 TO 21 STEP 3 :: 
CALL HCHAR<1,I,49+A):: A=A+1 
:: NEXT I 

330 FOR 1=1 TO 27 STEP 3 :: 
CALL VCHAR(1,1,96,24):: NEXT 
I 

340 FOR 1=1 TO 14 :: READ A, 


B :: IF RND<.5 THEN CALL SPL 
(A,B)ELSE CALL SPR(A,B) 

350 NEXT I 

360 RESTORE 250 :: FOR A=1 T 
0 14 : READ I, J 

370 DISPLAY AT(I-1,J+1)SIZE( 
2):CHR$(30)kCHR*(30):: NEXT 
A 

380 1=2 :: j=9 

390 PL=PL+.5 :: DISPLAY AT(2 
2,24) : " > > " 8<STR$ (INT (INT (PL) / 
PL)+1)k"<<" 

400 DISPLAY AT(1,24):"SP.:1" 
:: DISPLAY AT(11,24):"SP.:2 

II 

410 B=4 :: CALL PUNKT(B,A,PL 
,K(, , ) ,C() ) 

420 DISPLAY AT(24,i):" x=l 
h=2 p=3 " :: ACCEPT AT(2 

4,20)SIZE<1)VALI DATE("123")B 
EEP:F :: DISPLAY AT(24,1):"w 
ELCHE SPALTE ?" 

430 ACCEPT AT(24,20)SIZE(1)V 
ALI DATE("123456")BEEP:SP 
440 J=SP*3+2 :: 1=2 
450 FOR A=i TO 30 :: IF K(F, 

A, 1 ) =0 THEN 470 .. 

460 NEXT A "• 

470 IF A>AM(F)THEN AM(F)=A 
480 K(F,A,1)=1 :: K(F,A,2)=J 
:: CALL HCHAR(K(F,A,1),K(F, 

A, 2) , C (F) ) 

490 CALL ROLL(K(,,),C(),F,A, 
PL):: IF @=0 THEN 500 ELSE 4 
90 

500 CALL SOUND(10,1000,10):: 

FOR T=i TO 3 :: FOR B=i TO 
3 

510 FOR A=1 TO AM(B):: IF K( 

B, A,2)>0 THEN CALL ROLL(K(,, 

),C(),B,A,PL) 1 

520 NEXT A • 

530 NEXT B. . 

540 NEXT T 
550 GOTO 390 
560 SUB SPL(I,J) 

570 CALL SOUND(100,-6,20) 

580 DISPLAY AT(I,J)SIZE(3)I" 
XZ"6cCHR$(30) : : DISPLAY AT(I + 
1,J)SIZE(3)1"YEN" :: DISPLAY 
AT(1+2,J)SIZE(3):CHR*<30)&" 
YC" 

590 SUBEND 
600 SUB SPR <I,J) 

610 CALL SOUND(100,-5,20) 

620 DISPLAY AT(I,J)SIZE(3):C 
HR$(30)&"XZ" :: DISPLAY AT(I 
+ 1, J) SIZE (4) : " 3 A _"6«CHR$ (30) : 
I DISPLAY AT(I+2, J)SIZE(4) .* " 
* " &CHR$ (30) 6 cCHR$ (30) 
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630 1=1+2 
640 SUBEND 

650 SUB ROLL(K(,,),C(),B,A,P 
L) 

660 I=K(B,A,1):.: J=K(B,A,2): 

: GOTO 680 

670 K(B,A,1)=I :: K(B,A,2)=J 
680 CALL GCHAR<I+1,J,G):: CA 
LL GCHARd + l,J + l,Gl) 

690 IF GO120 AND 60104 AND 
G<>112 THEN 720 ELSE IF IO 
2 AND 107 AND 1012 AND IO 
17 THEN 780 

700 CALL GCHAR(1 + 1,J + 2,G) : : 
CALL GCHAR(I + i,J-1,G1) : : IF 
Gl< >30 AND G< >30 THEN 780 EL 
SE CALL HCHAR(I,J,30):: 1=1+ 
2 :: "IF G1=96 THEN J=J + 3 ELS 
E IF G=96 THEN J=J-3 
710 CALL HCHAR(I,J,C(B)):: C 
ALL SOUND(20,-2,0):: GOTO 67 
0 

720 IF G + G1O60 THEN 750 
730 CALL HCHARd, J,30) I : 1 = 1 
+1 :: IF I>22 THEN CALL VCHA 
R(23,K(B,A,2),30,1):: K(B,A, 
1),K(B,A,2)=0 :: CALL PUNKT( 
B,A,PL,K(,, ) ,C ( )) : : GOTO 780 
ELSE CALL HCHAR(I,J,C(B)) 
740 GOTO 680 

750 IF G>30 AND G<91 OR Gl>3 
0 AND Gl<91 THEN 770 
760 IF Gl>30 THEN CALL SPL(I 
,J-l):: GOTO 730 ELSE IF G>3 
0 THEN CALL SPRd,J-4):: GOT 
0 730 

770 K(B,A,1)=1 d K < B, A, 2) = J 

:: @=o 

780 SUBEND 

790 SUB PUNKT(B,A,PL,K(, ,) ,C 
( ) ) 

800 DIN FI(4,4,2),FE<4,4,2) 
810 IF BRETT=0 THEN CALL-BR( 
FE <,,),FI<,,),C <))!: BRETT=8 
820 K(B,A,2),K(B,A,1)=0 
830 IF PL=INT(PL)THEN 890 
840 SUM,Z=0 

850 FOR 1=1 TO 4 :: FOR J=1 
TO 4 :: SUM=SUM+FE(I,J,2):: 
IF FE(I, J , 1)=B AND FEd,J,2) 
= 1 AND Z=0 THEN CALL HCHARd 
+2,J+26,30):: FE(I,J,2)=7 :: 

Z=2 :: SUM=SUM+6 
860 NEXT J :: NEXT I 
870 IF SUN > = 16*7 THEN CALL E 
NDE(l) 

880 SUBEXIT 
890 SUM,Z=0 

900 FOR 1=1 TO 4 :: FOR J=1 
to 4 :: sum=sum+fi(I,J,2):: 

IF FI(I,J,1)=B AND FI(I,J,2) 


= 1 AND Z=0 THEN CALL HCHARd 
+12,J+26,30):: FI(I,J,2)=7 : 

: z =2 :: sum=sum+6 

910 NEXT J :: NEXT I 

920 IF SUM=16*7 THEN CALL EN 
DE (2) 

930 SUBEND 

940 SUB BR(FE(,,),FI(,,),C() 

) 

950 FOR 1=1 TO 4 :: FOR J=1 
TO 4 

960 IF RND<.4 THEN FI(I,J,1> 
=1 ELSE IF RND<.65 THEN FI(I 
,J,1)=2 ELSE FI(I,J,1)=3 
970 CALL HCHAR(1+12,J+26,C(F 
I(I,J,1))) 

980 IF RNDC.4 THEN FE(I,J,1) 
=1 ELSE IF RNDC.65 THEN FE(I 
,J,1)=2 ELSE FE(I,J,1)=3 
990 CALL HCHAR(1+2,J+26,C(FE 
(I,J, 1) ) ) 

1000 FE(I,J,2),FI(I,J,2)=i 
1010 NEXT J :: NEXT I 
1020 SUBEND 
1030 SUB ENDE(I) 

1040 DISPLAY AT(10,1)BEEP ER 
ASE ALL:"SPIELER";Ii"HAT GEW 
ONNEN" 

1050 DISPLAY AT(14,1):"1..NO 

CHMAL. 

.2. .SC 

HLUSS" 

1060 CALL KEY(0,K,S):: IF K= 
49 THEN RUN ELSE IF K=50 THE 
N STOP ELSE CALL SOUND(4201, 
262,16,370,17,311,17):: GOTO 
1060 

1070 SUBEND 


BÖRSE 


Verkaufe Module wie Topper/Princess/Driving/ 
einmalig in der BRD + ExBasicspiele ab 5 DM / 
Module ab 20 DM. Liste gegen DM 1 bei Wolf- 
gan Auer, Kantstr. 18, 645 Hanau 


Verk. TI-99/4A + ExBasic und Lerncass. + Cass. 
Rec. + Rec. Kabel + Soccer + Progr. + 2 Bücher + 
Infos + Joyst. VB eventuell auch einzeln. Tele 
07135/5744 und Atari 2600 mit 3 Modulen und 
Joyst. Arpad Huber Jr., 7129 Haberschlacht 


Verk. P-Box mit V 24 und Cent., Disklw, Ds- 
Controller, 64K-Bausatz, kaum gebraucht, mit 
Software. VB 1700. Tel. 05323/1811 n. 18 Uhr. 


TI99/4A + EXT-Basic + Schach + Kass-Rec-Kabel 
+ Alien-Add + Minus-Mis + Software + Lit; VB 
520,-. Tel. 0201/30 67 48 ab 17.30 Uhr 


Verkaufe TI-99/4A + Ext.-Basic +150 Pgm. so¬ 
wie Module. Info: H. Hollmann, Tel. 0209/84144 
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’«AaJV*crw-^i 


10 

i 

r- 

i ¥, X i-r ******** **** X* X* 

500 DISPLAY AT(9,1):"SOWIE S 

11 

i 

V 

Y 

TE’JERPFL ICHT I GE SPAR ZULAGEN 

12 

l 

V 

r 

GTSHERBE R E CHNUNG X 

ETC. .EP DUN 

13 

i 

¥. 

* 

GSKOSTFN SIND IN TAT-3AECHLI 

14 

t 

Y 

Cc-pyr i sLt b y X 

CHER HOEHE s HILFGUEI-" 

15 

i 

X 

X 

510 DISPLAY AT(13,1):"SE ALS 

16 

i 

* 

T hcsmas c *■ T r t X 

PAUSCHALBETRAG EIN2U-GEBEN. 

17 

{ 

* 

* 

11 

19 

i 

* 

Benoe1i 3t =■ Geriete X 

520 DISPLAY AT<15, 1) : "'"SÜNDE 

20 

i 

X- 

TI99/4A Konsole X 

RAUSGABEN SIND IN TAT-SAECHL 

21 

i 


Ext. B ö 5ir X 

ICHER HDEHE, HILFSWEI-" 

22 

i 

Y 

□ pt.'; Drucker * 

. 530 DISPLAY AT(17,1):"SE ALS 

23 

\ 

X 

X 

PAUSCHALBETRAG EINZU-GEBEN. 

26 

i 

M 

' y 5* 3 C !': =•■« fc e 1 ü- 3 T. ft H X 

11 

27 

i 

v 

TO' 3 B/tes X 

54 0 DI SPL AY A T (19, 1 > ; " ''NAUS - 

28 

» 

'■ 


BAUKOSTEN BEINHALTEN NUR DI 

29 

30 

i 

i 

* 

- X X r * * * X fr X X < X ¥ X X X X x X 

E HERSTELLUNG*- NICHT ABER D 
IE GRUNDSTUE CKSKOST EN " 


280 CALL CLEAR 
290 CALL SC REEN(1 


300 

Ti 

SPLAY 

AT (1 

j - ' 

"STE 

!j r p 


FRF 

CNN 

UNS •’ 






3J0 

DI 

SPL AY 

II 

AT (2 

, 6} : 

fl_ 

— 

- 

320 

DI 

SPLAY 

A T / O 

m » t o 

,6) : 

”0 T 

. E h 

i 

iff t 

r> 

■ ' j ^ " 






330 

T' 7 

SPLAY 

AT (5 

, l) : 

"DAS 

PF 

n 

r. c- a 

MM 

BEREC 

HMET 

IAH- 

21 



340 

DI 

SPLAY 

AT (6 


"RES 

STE 

U 

EP. 

;< i s 

CHENS 

TEUER 

UND 

M 



350 

DI 

SPLAY 

a -r / —> 
r* \ \ . 

»l>: 

" NON 

ATL 

I 

CHE 

C* *■ 1 

ETTC-E 

IN KON 

MEN" 




360 

DI 

SPLAY 

AT (3 


"UNT 

ER 

B 

eru: 

E C K 

SICHT 

IGUNG 

EI - 

il 



370 

DI 

SPLAY 

AT (9 

,1): 

" HER 

ET 

V 

AIGEN 

SThUE 

RER SP 

ARNI 

3" 



380 

Dl 

SPLAY 

AT (1 

o,n 

: "NA 

CH 

P 


ARAGRAPH 7b EStG, SO-” 

390 DISPLAY AT(11,1):” 
ENTLICHE SOZIALVERSI-" 

400 DISPLAY AT(12,1):" 
GSBEITRAEGE VON SOZI-" 

410 DISPLAY AT(13,1):" 

ICHERUNGSPFLICHTIOEM" 

420 DISPLAY AT(14,1>:" 
NEHMERN” 

430 DISF’LAY AT (20,7} : " 

ASTE DPUECKEN!" 

440 CALL KEY<0,K,S):: 

THEN 440 - 
450 CALL CLEAR ' 

460 DISPLAY AT(1,1):"" 

470 DISPLAY AT (2, 1):"ERKLAER 
UNS DER EINGABEWERTE:" 


480 DISPLAY AT < 3 } 1 ) : " ~ -- 

______._.__II 

490 DISPLAY AT (5, i } : «'-BRUTTO 
JAHRE3EINKOMMEN BEIN-HALTET 
SAEMTLICHE STEUER-...PFLICHT 
I-G2N EINKUENFTE, ALSO AUCH U 
RLAUES- UND WEIHNACHTSGELD” 


550 D ! " PLAY AT ' 2.?, 7 ) : " EI NE T 
ASTE DPUECKEN!" 

560 CALL KEY(0.! ,S>: : IF S=0 
THEN 560 
570 CALL CLEAR 
530 DIPPL AY AT(2,1): 11 IM FOLG 
ENDEN ERHALTEN SIE...DIE ZUR 
HILFSUSI SEN EINGABE ERFORDE 
FLICKEN” 

590 DISPLAY. r AT ( 6, 6) : "PAUSCHA 
i.BETRAEC-E" 

600 DISPLAY AT(7,6):"- 


610 DI SPLAY A T(9,i) : “ FUER WE 
RBUNGSKOSTEN UND SCN-DERAUSG 
ADEN:" 

620 DI SPLAY AT(12,1):" ABKUER 
ZL!NGSERKLAE ? UNG: " 


WIE SA 

630 DISPLAY AT(13,1) : " 
DIG VH-VERNEIRATET,.. . 

CHERUM 

ZI ALVERS.PFLICHTIG. . . . 
FFELVERDJENER" 

ALVER3 

640 DISPLAY AT(17,1):" 
IE (1) LED + SVP. 

ARBEIT • 

. . . (2) LED.* NICHT SVP 
...(3) VH f SVP...... 

EIME T 

...(4) VH t NICHT SVP 
...(5) DOP + SVP" 

IF 9=0 

650 DISPLAY AT(22,1): H 
... (5) DOP + NICHT SVP 


SIND 


VAL 


... BITTE 

KENNZAHL EINGEBEN!" 

660 ACCEPT AT(24,26)BEEP 
IDATE("123456")SIZE(1):Q 
670 
680 
690 
700 
710 
720 
730 


IF 

9= 

i 

THEN 

r, 

/ oU 

IF 

5= 

2 

THEN 

750 

IF 

Q~ 

3 

THEN 

7 7f- 

IF 

vi - 

.1 

THEN 

790 

IF 

r-, — 

5 

THEN 

310 

IF 

5= 

c. 

THEN 

o30 

r £ 3 

w riL 

-L 

CLEAR : 

; : D 


DI SP LA r 


r-, i 


(5,1):"WERBUNGSKQSTENPAUSCHA 
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LE 56h" 

740 DISPLAY AT<8,1>:"SONDERA 
USGAPB KPAUSCHALE -3700" : : GO 
73 850 


PF FOLGENDE" 

920 DISPLAY AT(11,6):"VERSIC 
HERLINGEN EIN:" 


750 CALL CLEAR :: DISPLAY AT 
•:5. i 5 : "WERPUMG-SKOSTENPAUGCHA 
’ E *-■ ■-.? 11 

760 DISPLAY AT(S,1):"SöNDERA 
U3GAEENPAUSCHALE 2260" : : GO 
TO 850 

770 wi.L L-l.EAR : : DI 6’KLAY AT 
(5.1):"WERPUNGSKOSTENPAUSCHA 
LE 564" 

780 DISPLAY AT(8,i):"SONDERA 

USGAEENPAUSCHALE..OHNE K 

INDER. . . . 7560. ..EIN K 

IND. .... . 8^24.ZWEI K 

INDER .... 8856.DREI K 

INDER-- 9i 30 : : G0TO 850 


.AL i CLEAR 


GOTO 850 
DISPLAY AT 


• ~ * ' • "'.irü pi IM’iCl'OC r ur'D/i‘ ICf J'- 

.... . / . ^crst-.'(a'cKü: i l^-<r nJoL M r-. 

LE 564" 

800 DISPLAY AT(8,1):"SONDERA 

USGABENPAUSCHAL F.OHNE K 

INDER. ... 4536.EIN K 

IND.54 00....ZWEI K 

INDER .... 63 J 8.DREI K 

INDER .... 7236" : : GOTO 850 
810 CALL CLEAR :: FF=2 DI 
SRIAY AT(5,1) : ‘WEREUNGSKOSTE 
NR AUSCHALE 1128" 

820 DISPLAY AT (8,1) : :i SONDERA 

USGAEENP AUSCHALE.OHNE K 

INDER .... 756-0 ...L..... EIN K 

IND. 8424.. .ZWEI K 

INDER. ... 9342.DREI K 

INDER. . .J 0260" :: GOTO 850 
830 CALL CLEAR :: FP=2 :: DI 
SPL AY AT (5 , n " WERBUNGSKGSTE 
NPAUSCHALE 1128" 

840 DISPLAY AT (8, i ) SONDERA 

USGAEENP AUSCHALE.OHNE K 

INDER. ... 4536.EIN K 


INDER. ...6318. .... _DREI K 

INDER,...7236" :: GOTO 850 
850 DISPLAY AT(18,1):“BITTE 
MERKEN SIE SICH DIE... FUEF: 8 
IE RELEVANTEN BETRAEGEUND ST 
ARTEN SIE DAS PROGRAMMMIT EI 
NEH DEZENTEN DRUCK AUFIRGEND 
EINE TASTE!" 

860 CALL KEY(0,K,S):: IF 8=0 
THEN 860 
870 CALL CLEAR 
880 P D-- 1 

090 DISPLAY AT (5, 6) .* "BITTE G 
EBEN SIE DIE" 

900 DISPLAY AT(7,6):"ARBEITN 
FHMERANTE2LE" 

910 DISPLAY AT(?,6) : "IN % FU 


"ARBEITN 


930 DISPLAY AT(17,1):"KRANKE 
NVERSICHERUNG?" 

940 ACCEPT AT(17,22)BEEP VAL 
I DATE (NL’MEPIC ) S IZE < 5 > : KV 
950 DISPLAY AT(19,1):"RENTEN 
VERSICHERUNG ?" 

960 ACCEPT AT(19,22)BEEP VAL 
I DATE {il'JHERIC ) SIZE < 5) : RV 
970 DISPLAY AT<21,1):"ARBEIT 
SLÖSENVEPS. ?" 

980 ACCEPT AT(21,22)BEEP VAL 
IDATE(NUMERIC)SJ ZE(5):ALV 
990 CALL CLEAR 

1000 DISPLAY AT(2,i):"BRUTTO 
JAHRESEIN!:. ? " 

1010 ACCEPT AT(2,21)BEEP VAL 
IDATE(NUNERIC> SIZE(9) :B J 
1020 DISPLA" AT(8,1) : "WERBUN 
CSKOCTEN. . . ? '* 

1030 ACCEPT AT(3,21)BEEP VAL 
IDATE(NUMERIC)SIZE(9);WK 
1040 DISPLAY AT(4,J):"SONDER 
AUSGABEN...? " 

1050 ACCP U 'T AT (4,21) BEEP VAL 
I DATE (N’, VIER IC ) SIIE (9) : SA 
1060 DIS~ LAY AT(5,I): "HAUS-E 
AUKG3TEN...? " 

1070 ACCEPT AT(5,21)BEEP VAL 
IDATE (■!JUMER IC) 8IZE (9) : HB!( 
1080 DISPLAY AT (6,1 ) ,* "ZAHL B 
ER KINDER " 

1090 ACCEPT AT(6,21)BEEP VAL 
I DATE i NUMERI C ) SIZE (2) .'KZ 
1 i 00 DI SPL AY AT < 7, 1 ) .' "SPL ITT 
ING•J=2/N=l) " 

1110 ACCEPT AT(7,21)BEEP VAL 
IDATE(NUMERIC > SI2E(1);SP 
1120. IF H£K>250000 THEN HEK= 
250000 

1130 STSF =(HBK/100>*5 
1140 JG~BJ-SA-WK-(1080£FB; - ( 
KZ*432) - STSP 
1150 A-JG 

1160 ON SP GOTO 1170,1190 
1170 V=JNT(JG/54)*54 - 
1180 GOTO 1200 
1190 V=(INT(JG/108)*103)/SF 
1200 IF V<4213 THEN 1250 
1210 IF V<18000 THEN 1260 
1220 IF V<60000 THEN 1280 
1230 IP V<130000 THEN 1310 
1240 IF U>129999 THEN 1340 
1250 DISF LAY AT(15,5) : "KEINE 
BERECHNUNG; : GOTO 1890 
1260 F =.22X V -926 
1270 GOTO 1350 
1 280 H= ( V •- i 8000 > / 1 0000 
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1290 F=<<(3.05*H-73.76)*H+69 

5) &H + 2200) X-H + 3034 

1300 GOTO 1350 

1310 M=(V-60000)/1000C 

1320 F=<(<.09*M-5.45)*M+83.1 

3)*M+5040)*M+20018 

1330 GOTO 1350 

1340 F=.56*V-14837 

1350 IF SP=2 THEN F=F*2 

1360 DISPLAY AT(9,1):"ZU VER 

ST. EINK.:" :: DISPLAY AT<9, 

20):INT(JG) 


1370 

DISPLAY 

AT(11,1):"EINKO 

mmensteuer: " 

:: DISPLAY AT <1 

1,20) 

:INT <F) 


1380 

IF KZ=1 

THEN Z=600 :: G 

OTO 1440 


1390 

IF KZ=2 

THEN Z=1560 :: 

GOTO 

1440 


1400 

IF KZ=3 

THEN Z=3360.:: 

GOTO 

1440 


1410 

IF KZ=4 

THEN Z=5160 :: 

GOTO 

1440 


1420 

IF KZ=5 

THEN Z=6960 :: 

GOTO 

1440 


1430 

IF KZ=6 

THEN Z=S760 

1440 

Y=F - Z 


1450 

X=.09*Y 

:: IF X<0 THEN 

x=o 

1460 

DISPLAY 

AT(13,1):"KIRCH 


ENSTEUER *." :: DISPLAY AT (1 
3,20):INT(X) 

1470 AKV=(<BJ/100)*KV>/13 
1480 ARV=<(BJ/100)*RV)/13 
1490 AALV=<<BJ/100)*ALV)/13 
1500 SVGES=AKV+ARV+AALV 
1510 DISPLAY AT<20,1):"SIND 
SIE SOZIALVERSICHERUNGSPFLIC 

HTIG. 

_•.(J/N)" 

1520 ACCEPT AT(22,23)BEEP VA 
LIDATE < " JN" ) SIZE (1) : A* 

1530 IF A$="J" THEN 1550 
1540 IF A*="N" THEN 1780 
1550 DISPLAY AT<20,1):"" 

1560 DISPLAY AT<21,1):"" 

1570 DISPLAY AT<15,1):"KRANK . 
ENVERS.BEITRAG;" 

1580 DISPLAY AT< 15,20) :INT(A 
KV) 

1590 DISPLAY AT(17,1):"RENTE 
NVERS.BEITRAG :" 

1600 DISPLAY AT<17,20):INT(A 
RV) 

1610 DISPLAY AT < 19, 1.) : " ARBEI 
TSLGSENVERS. :" 

1620 DISPLAY AT<19,20):INT<A 
ALV) 

1630 NG=BJ-F-X-<SVGES*13) 

1640 MG=NG/13 

1650 DISPLAY AT(21,1).*"MONAT 


LICH NETTO!" 

1660 DISPLAY AT<21,20):INT<M 
G) 

1670 DISPLAY AT<22,1):"- 


1680 DISPLAY AT<24,1):"WERTE 

AUSDRUCKEN-< J/N) " 

1690 DISPLAY AT<15,25):")" : 

: DISPLAY AT<16,25) " :: D 

ISPLAY AT <17,25):")MTL" 

1700 DISPLAY AT <18,25):"}" : 

: DISPLAY AT (19,25) : " 

1710 ACCEPT AT<24,28)BEEP VA 
LIDATE("JN")SIZE<1):A$ 

1720 IF AS^'J" THEN 1930 
1730 IF A$="N" THEN 1740 
1740 DISPLAY AT(24,1):"NEUE 

BERECHNUNG.< J/N) " 

1750 ACCEPT AT(24,23)BEEP VA 
LIDATE("JN")SIZE <1):A$ 

1760 IF /,$="J" THEN CALL CLE 
AR : .* GOTO 570 
1770 IF A$= !| N" THEN CALL CLE 
AR :: STOP 

1780 DISPLAY AT<20,1):"" 

1790 DISPLAY AT<21,1>:"" 

1800 NG=BJ-F-X 
1310 MG-NG/13 

1820 DISPLAY AT(21,1):"MONAT 
LICH netto:" 

1830 DISPLAY AT<21,20):INT<M 
G) 

1840 DISPLAY AT<22,1):"- 


1850 DISPLAY AT<24,1):"WERTE 
AUSDRUCKEN <J/N)" 

1860 ACCEPT AT(24,26)BEEP VA 
LIDATE<"JN")SIZE(1): A$ 

1870 IF A$="J" THEN 1930 
1880 IF AS="N" THEN 1890 
1890 DISPLAY AT(24,1):"NEUE 
BERECHNUNG... (J/N)" 

1900 ACCEPT AT(24,26)BEEP VA 
LIDATE("JN")SIZE(1)IA$ 

1910 IF A$="J" THEN CALL CLE 

AR :: GOTO 890 

1920 IF A$="N" THEN CALL CLE 

AR :: STOP 

1930 OPEN #l:"PIO" 

1940 FÜR Z=i TO 23 • 

1950 FOR F-l TO 30 
i960 CALL GCHAR(Z,P,X) 

1970 DRü$=SEG$ (DRU$, 1 , P) «cCHR 
$ <X) 

1980 NEXT P 

1990 PRINT fci:BRU$ 

2000 NEXT Z 
2010 CLOSE #1 
2020 GOTO 1740 
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10 REM******************** 


11 REM* * 

12 REM* KOMPOSITIONEN * 

13 REM* Copyright by * 

14 REM* * 

15 REM* A.Saberschinsky * 

16 REM* * 


17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* Kass.-Rekorder * 

20 REM* * 

23 REM* Speicherbelegung * 

24 REM* 9172 Bytes * 

25 REM******************** 

26 REM 

100 DIM Fl(125),F2<125),F3(1 
25),L(125) 

110 CALL CLEAR 

120 PRINT "*N0TENK0MP0SITI0N 

sprogramm*": :::::::: 

: ;"ENTWICKELT UND GESCHRIE 
BEN VON" 

130 PRINT ".ALEXANDER SA 

BERSCHINSKY1985 M : : : : 

140 CALL SOUNDdOO, 110,0, 100 

0 , 0 , 10000 , 0 ) 

150 FOR 2=1 TO 2500 

160 NEXT Z 

170 FLAG1=0 

180 FLAG11=0 

190 FLAG3=0 

200 CALL CLEAR 

210 PRINT ".WAHLLIST 

E.......... S=SBBB3nSSBSaCESB 


220 PRINT B .. . 

.BEDIENUNGSANLEITU 

NG.1N0TENEINGABE. 

. 2 " 

230 PRINT "NOTENKORREKTUR... 

.3ABSPIELEN DER KOM 

POSITION..4LADEN EINER KOMPO 
SITION....5" 

240 PRINT "SPEICHERN EINER K 
OMPOSITON.6ENDE. 

7 H • • • . . ■ 

. « I .J . . 

250 CALL KEY(0, Kj S) 

260 IF S=0 THEN 250 

270 IF K<49 THEN 250 

280 IF K>55 THEN 250 

290 ON K-48 GOTO 300,690,115 

0,1540,1610,1690,1770 

300 CALL CLEAR 

310 PRINT "MIT DIESEM PROGRA 

MM KOENNEN SIE BELIEBIGE MEL 

ODIEN EIN- GEBEN, DIE NACH E 

INER EVEN-" 

320 PRINT "TUELLEN KORREKTUR 
ANGEHOERT ODER GESPEICHERT 

WERDEN.KOENNEN. AUCH DAS 

LADEN " 


330 PRINT "ALTER MELODIEN VO 
N CASSETTE IST MOEGLICH." 

340 PRINT "DEN TONWERT GEBEN 
SIE EIN,..INDEM SIE FUER DI 

E ENT-.SPRECHENDE NOTE D 

IE TASTE.." 

350 PRINT "AUF DER ALPHANUMM 
ERISCHEN...TASTATUR DRUECKEN 

. FUER.DIE MITTLERE TONL 

EITER IST" 

360 PRINT "NUR DIE ENTSPRECH 
ENDE TASTE ZU DRUECKEN, FUER 
DIE TIEFE TONLEITER ZUSAETZ 
LICH DIE " 

370 PRINT "TASTE ’FCTN* UND 
FUER DIE...HOHE TONLEITER DI 

E TASTE- »CTRL’. (Z.B.: HO 

HES G -->..CTRL G. )": : 

380 PRINT ">BITTE EINE TASTE 
DRUECKEN< M 
390 CALL KEY(0,K,S) 

400 IF S=0 THEN 390 
410 CALL CLEAR 

420 PRINT "BITTE MERKEN SIE 

SICH.WEITERHIN FOLGEND 

E ZU-.SAETZLICHE TASTEN 

BELEGUNG...(EV. NOTIEREN):" 

430 PRINT ". .NOTE.! . . . T 

ASTE. ..... . ============«s==i== 


===== 

4t 

U 

■ 

• 

II 

II 

II 

II 

II 

II 

II 

D8c_!_ 

..5. 

H 


440 

PRINT "..D#, 

E8c_!_ 

. . 6. 


G8c. 

. .7. 


Ak. 

. . 6. 

H 


450 

PRINT "..A#, 

BBc_!_ 




— 

• • 



460 PRINT "# = ERHOEHUNG EIN 
ER NOTE.... 8c « VERMINDERUNG 
EINER NOTE"! : 

470 PRINT "FUER DIE TONLEITE 
RWAHL BITTEWIEDER ’FCTN* BZW 
. ’CTRL’...VERWENDEN."! ! : 
480 PRINT ">BITTE EINE TASTE 
DRUECKEN<" 

490 CALL KEY(0,K,S) 

500 IF S=0 THEN 490 - 

510 CALL CLEAR 

520 PRINT "DIE TASTEN FUER D 

IE NOTEN-,.LAENGE SIND WIE F 

OLGT BE-...LEGT:" 

530 PRINT "NOTENLAENGE !...T 
ASTE. ..... . = =* ==== = » = = *==* = = = * = 

===========. . 32STEL. ...!.... 

.. 1 . ...... " 

540 PRINT ". . 16TEL.!_ 

. .2. 8TEL .!- 

. .3.4TEL.!_ 

. .4.. " 
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550 PRINT ". . .4TEL . 

. .5.. . .HALBE. 

. .6. . ..GANZE. 

. .7 ." 


890 FLAG5=1 

900 PRINT M -2. KLANG 


910 GOSUB 1920 


560 PRINT -- 

-JEWEILS MIT * SHIF 

y» I i I | i | i |- 

___ * . . . 

■ • ■ 

570 PRINT ">BITTE EINE TASTE 
DRUECKEN<" 

580 CALL KEY(0, K, S) 

590 IF S=0 THEN 580 
600 CALL CLEAR 

610 PRINT "FUER EINE PAUSE D 
RUECKEN DIEBITTE BEI DER NOT 
ENHOEHEN-..WAHL EIN ’P’ UND 
DANN DIE" 

620 PRINT "GEWUENSCHTE LAENG 

E.BEI DER NOTENEING 

ABE KOENNENSIE ZWISCHEN EIN- 
, ZWEI-," 

630 PRINT "UND DREIKLANG (OD 
ER AUCH BE-ENDIGUNG DER EING 
ABEN) WAEH-LEN." 

640 PRINT "WENN SIE WIEDERHO 

LT (2).AUS DER WAHLLISTE 

WAEHLEN,..WIRD DIE GESPEICH 
ERTE KOMPO-" 

650 PRINT "SITION GELOESCHT! 

!!": : : : :">bitte eine tas 

TE DRUECKEN<" 

660 CALL KEY(0,K,S) 

670 IF S=0 THEN 660 
680 GOTO 170 
690 CALL CLEAR 
700 A=0 
710 A=A+1 

720 PRINT "NOTENEINGABE:.... 


XI) EINKLANG.- 

> (2) ZWEIKLANG.- 

> (3) DREIKLANG.- 

>(4) ENDE DER EINGABE": : 

730 CALL KEY(0,K,S) 

740 IF S=0 THEN 730 
750 IF K<49 THEN 730 
760 IF K>52 THEN 730 
770 ON K-48 GOTO 780,850,960 
,1110 

780 FLAG4=1 

790 GOSUB 1920 

800 CALL SOUND <L(A),F1(A),0) 

810 F2(A)=F1(A) 

820 F3(A)=F1(A) 

830 IF FLAG3=1 THEN 170 
840 GOTO 710 
850 FLAG2=i 
860 FLAG4=2 

870 PRINT "-1. KLANG 


880 GOSUB 1920 


920 CALL SOUND (L(A),F1(A),0, 
F2(A),0) 

930 F3(A)=F2(A) 

940 IF FLAG3=1 THEN 170 
950 GOTO 710 
960 FLAG2=1 
970 FLAG4=3 
980 FLAG6=1 

990 PRINT H -1. KLANG 


1000 

H 

GOSUB 1920 



1010 

FLAG2=1 



1020 

FLAG6=2 



1030 

PRINT "- 

-- 2. 

KLAN 

G --• 

H 



1040 

GOSUB 1920 



1050 

FLAG6=3 



1060 

PRINT "- 

-- 3. 

KLAN 

G- 





1070 GOSUB 1920 

1080 CALL SOUND(L(A),F1(A),0 

,F2(A),0,F3(A),0) 

1090 IF FLAG3=1 THEN 170 

1100 GOTO 710 

1110 IF FLAG12=1 THEN 170 

1120 A=A-1 

1130 M=A 

1140 GOTO 170 

1150 CALL CLEAR 

1160 PRINT "KORREKTUR:. 


1170 PRINT "WELCHE KORREKTUR 


?. -XI) LOESCHEN E 

INER NOTE...->(2) ERGAENZEND 
E NOTE. -X3) VERAENDERN 


EINER NOTE": : : 

1180 CALL KEY <0,K,S) 

1190 IF S=0 THEN 1180 
1200 IF K<49 THEN 1180 
1210 IF K>51 THEN 1180 
1220 ON K-48 GOTO 1350,1230, 
1460 - 
1230 M=M+i 

1240 INPUT "BITTE GEBEN SIE 
DIE NOTE AN,DIE NACH DER EIN 
ZUFUEGENDEN NOTE STEHEN WIRD 
. ":N 

1250 FOR Y=M TO N+l STEP -1 

1260 Q=Y-1 

1270 Fl(Y)=F1<Q) 

1280 F2(Y)=F2(Q) 

1290 F3(Y)=F3(Q) 

1300 L(Y)=L(Q) 

1310 NEXT Y 
1320 A=N 
1330 FLAG3=1 
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1340 GOTO 1510 

1350 INPUT "BITTE GEBN SIE D 
IE NUMMER...DER NOTE AN, DIE 
GELOESCHT..WERDEN SOLL. ":N 
1360 FOR A=N TO M 
1370 I=A+1 
1380 Fl(A)=F1(I) 

1390 F2(A)=F2(I) 

1400 F3(A)=F3(I) 

1410 L(A)=L(I) 

1420 NEXT A 

1430 M=M-1 

1440 GOTO 170 

1450 GOTO 1510 

1460 INPUT "BITTE GEBEN SIE 

NUMMER DER..NOTE EIN, DIE SI 

E KORRI-_GIEREN WOLLEN. " 

: A 

1470 PRINT 

1480 IF A<1 THEN 1460 
1490 IF A>M THEN 1460 
1500 IF INT(A)< >A THEN 1460 

1510 PRINT : ".!. 

......v": : 

1520 FLAG3=i 

1530 GOTO 720 

1540 CALL CLEAR 

1550 PRINT "ABSPIELEN:. 


■ • 

1560 FOR A=1 TO M 

1570 CALL SOUND(L < A),Fi(A),0 

,F2(A),0,F3(A),0) 

1580 PRINT "NOTENNUMMER: "JA 

1590 NEXT A 

1600 GOTO 170 

1610 CALL CLEAR 

1620 OPEN #l:"CS1",SEQUENTIA 

L,INTERNAL,INPUT ,FIXED 

1630 INPUT #1:M 

1640 FOR A=1 TO M 

1650 INPUT #1:L(A),Fl(A),F2( 

A),F3(A) 

1660 NEXT A 

1670 CLOSE #1 

1680 GOTO 170 

1690 CALL CLEAR 

1700 OPEN #1:"CS1 U ,SEQUENTIA 

L,INTERNAL,OUTPUT,FIXED 

1710 PRINT #l:M 

1720 FOR A=1 TO M 

1730 PRINT #l:L(A),F1<A),F2< 

Ä),F3(A) 

1740 NEXT A 

1750 CLOSE #1 

1760 GOTO 170 

1770 CALL CLEAR 

1780 PRINT "BITTE BEACHTEN S 

IE, DASS BEIABSCHLUSS DES PR 

OGRAMMS ALLEDATEN GELOESCHT 

werden!": : : 


1790 PRINT "BITTE WAEHLEN SI 

E!. --X1) ZURUECK Z 

UR WAHLLISTE--X2) ENDE DES 
PROGRAMMS": : : : : 

1800 CALL KEY(0,K,S) 

1810 IF S=0 THEN 1800 

1820 IF K<49 THEN 1800 

1830 IF K>50 THEN 1800 

1840 IF K=49 THEN 170 

1850 CALL CLEAR 

1860 PRINT "IN DIESEM FALL D 
ARF ICH MICHBEI IHNEN FUER I 
HR INTERESSEBEDANKEN UND MIC 

H VERAB-_SCHIEDEN. " 

1870 PRINT " ALEXANDER SABE 
rschinky ’85": : : : : : 

1880 CALL KEY(0,K,S) 

1890 IF S=0 THEN 1880 
1900 CALL CLEAR 
1910 END 

1920 PRINT "NOTENNR.:XAj HM : 

: "KLANG(FREQUENZ)? " 

1930 CALL KEY(0,K,S) 

1940 IF S=0 THEN 1930 

1950 IF K=131 THEN 2340 

1960 IF K=132 THEN 2370 

1970 IF K=133 THEN 2400 

1980 IF K=134 THEN 2430 

1990 IF K=135 THEN 2460 

2000 IF K=129 THEN 2490 

2010 IF K=136 THEN 2520 

2020 IF K=67 THEN 2550 

2030 IF K«68 THEN 2580 

2040 IF K=69 THEN 2610 

2050 IF K=70 THEN 2640 

2060 IF K=71 THEN 2670 

2070 IF K=65 THEN 2700 

2080 IF K=72 THEN 2730 

2090 IF K*=96 THEN 2760 

2100 IF K=9 THEN 2790 

2110 IF K-l1 THEN 2820 

2120 IF K=123 THEN 2850 

2130 IF K=125 THEN 2880 

2140 IF K=124 THEN 2910 

2150 IF K=191 THEN 2940 

2160 IF K=159 THEN 2970 

2170 IF K=181 THEN 3000 

2180 IF K=182 THEN 3030 

2190 IF K=183 THEN 3060 

2200 IF K=158 THEN 3090 

2210 IF K*=57 THEN 3120 

2220 IF K=53 THEN 3150 

2230 IF K=54 THEN 3180 

2240 IF K=55 THEN 3210 

2250 IF K=56 THEN 3240 

2260 IF K=15 THEN 3270 

2270 IF K=14 THEN 3300 

2280 IF K=12 THEN 3330 

2290 IF K=1 THEN 3360 

2300 IF K=6 THEN 3390 SW 
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2310 

IF K=80 THEN 3420 

2920 

C$="TIEFES A" 

2320 

IF K=83 THEN 32767 

2930 

GOTO 3440 

2330 

GOTO 1920 


2940 

FRE=247 

2340 

FRE=523 


2950 

C$="TIEFES H" 

2350 

2360 

2370 

2380 

C$= M HOHES C" 
GOTO 3440 
FRE=587 

C$="HOHES D" 


2960 

2970 

2980 

GOTO 3440 - 
FRE=932 

C$="HOHES A#, B8c" 

2390 

GOTO 3440 


2990 

GOTO 3440 

2400 

FRE=659 


3000 

FRE=554 

2410 

C$= H HOHES E" 


3010 

C$="HOHES C#,D&" 

2420 

GOTO 3440 


3020 

GOTO 3440 

2430 

FRE=698 


3030 

FRE=622 

2440 

C$="HOHES F" 


3040 

C$="HOHES D#,E&" 

2450 

GOTO 3440 


3050 

GOTO 3440 

2460 

FRE=784 


3060 

FRE=740 

2470 

C$= H HOHES G H 


3070 

C$="HOHES F#,G&" 

2480 

GOTO 3440 


3080 

GOTO 3440 

2490 

FRE=880 


3090 

FRE=831 

2500 

C$="HOHES A" 


3100 

C$="HOHES G#,A&" 

2510 

GOTO 3440 


3110 

GOTO 3440 

2520 

FRE=988 


3120 

FRE=466 

2530 

C$="HOHES H" 


3130 

C$="MITTLERES A#,B&" 

2540 

GOTO 3440 


3140 

GOTO 3440 

2550 

FRE=262 


3150 

FRE=277 

2560 

C$="MITTLERES 

C" 

3160 

C$= "MITTLERES C#,D8<" 

2570 

GOTO 3440 


3170 

GOTO 3440 

2580 

FRE=294 


3180 

FRE=311 

2590 

C$="MITTLERES 

D H 

3190 

C$= "MITTLERES D#,E&" 

2600 

GOTO 3440 


3200 

GOTO 3440 

2610 

FRE=330 


3210 

FRE=370 • 

2620 

C*="MITTLERES 

E" 

3220 

C$=“MITTLERES F#,G&" 

2630 

GOTO 3440 


3230 

GOTO 3440 

2640 

FRE=349 


3240 

FRE=415 

2650 

C$="MITTLERES 

F" 

3250 

C$= "MITTLERES G#,A8<" 

2660 

GOTO 3440 


3260 

GOTO 3440 

2670 

FRE=392 


3270 

FRE=233 

2680 

C$="MITTLERES 

G" 

3280 

C*="TIEFES A#,B8e" 

2690 

GOTO 3440 


3290 

GOTO 3440 

2700 

FRE=440 


3300 

FRE=139 

2710 

C$="MITTLERES 

A" 

3310 

C$="TIEFES C#,D&" 

2720 

GOTO 3440 


3320 

GOTO 3440 

2730 

FRE=494 


3330 

FRE=156 

2740 

C$="MITTLERES 

H H 

3340 

C$="TIEFES D#, E8c" 

2750 

GOTO 3440 


3350 

GOTO 3440 

2760 

FRE=131 


3360 

FRE=185 

2770 

C$=“TIEFES C m 


3370 

C$="TIEFES F#,Gfc" 

2780 

GOTO 3440 


3380 

GOTO 3440 

2790 

FRE=147 


3390 

FRE=208 

2800 

C*="TIEFES D" 


3400 

C$="TIEFES G#, A&" 

2810 

GOTO 3440 


3410 

GOTO 3440 

2820 

FRE=165 


3420 

FRE=40000 

2830 

C$="TIEFES E" 


3430 

C$="PAUSE" 

2840 

GOTO 3440 


3440 

PRINT TAB(7);c$;: 

2850 

FRE=175 


3450 

ON FLAG4 GOTO 3460,3480 

2860 

C$="TIEFES F H 


,3540 

2870 

GOTO 3440 


3460 

Fl (A)=FRE 

2880 

FRE=196 


3470 

GOTO 3600 

2890 

C$= H TIEFES G” 


3480 

IF FLAG5=1 THEN 3510 

2900 

GOTO 3440 


3490 

Fl(A)=FRE 

2910 

FRE=220 


3500 

GOTO 3600 
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3510 F2(A)=FRE 
3520 FLAG5=0 
3530 GOTO 3600 

3540 ON FLAG6 GOTO 3550,3570 
,3590 

3550 Fl(A)=FRE 
3560 GOTO 3600 

3570 F2(A)=FRE 

3580 GOTO 3600 

3590 F3(A)=FRE 

3600 IF FLAG2=1 THEN 3930 

3610 PRINT "KLANGLAENGE? " 

3620 CALL KEY(0,K,S) 

3630 IF S=0 THEN 3620 
3640 IF K=33 THEN 3720 

3650 IF K=64 THEN 3750 

3660 IF K=35 THEN 3780 

3670 IF K=36 THEN 3810 

3680 IF K=37 THEN 3840 

3690 IF K=94 THEN 3870 

3700 IF K=38 THEN 3900 

3710 GOTO 3620 
3720 L(A)=63 
3730 C$= M 32-TEL" 

3740 GOTO 3920 
3750 L(A)=125 
3760 C$="16-TEL" 

3770 GOTO 3920 
3780 L(A)=250 
3790 C$=" 8-TEL" 

3800 GOTO 3920 
3810 L(A)=500 
3820 C$=" 4-TEL"* 

3830 GOTO 3920 

3840 L < A)=750 

3850 C*=" 4-TEL PUNKTIERT" 

3860 GOTO 3920 

3870 L(A)=1000 

3880 C$=" HALBE" 

3890 GOTO 3920 
3900 L(A)=2000 
3910 C*=" GANZE" 

3920 PRINT TAB(7)jC*i: : : 
3930 FLAG2=0 
3940 RETURN 


UNSER 

& TElEPQNSEftWICI S 

Leserbriefe und Fragen sind uns stets willkommen. 
Wir beantworten sie entweder direkt oder auf 
der Leserbriefseite 
ACHTUNG !!! 

Wie immer steht unseren Lesern unser Telefon- 
Service zur Verfügung! Jeden Dienstag von 15 bis 
19 Uhr. Für technische Fragen: 0731/33 220 und 
für Listings/Programme: 089/ 1 29 80 1 3 


BÖRSE 


Drucke ihre Listings für 6,— DM pro Prg. Entferne 
Listschutz für 3,— DM pro Cassette !! Info 50 Pfg. 
anfordem. Matthias Orf, Birkenallee 34, D-3507 
Baunatal 1 


TI99/4A + Ext. Basic + orig. Cas.Rec. Kabel + 
TI-Bücher + umfangr. Software für 500,— DM zu 
verk. Tel. 040/6103696 


Werden Sie Mitglied im großen TI-CLUB BAUNA¬ 
TAL! Tolles Clubheft, Prg. Speicher, Programmier- 
lenkurs u.v.m. Info 50 Pfg. oder Clubheft 3,— 

DM anfordern! TI-CLUB BAUNATAL (TCB), 
Matthias Orf, Birkenaalee 34, D-3507 Baunatal, 
Tel. 0561/497990 !!! . 


Verkaufe originalverpackt: TI99/4A (19 Monate): 
235,- DM TI99/4A + Rec-Kabel: 250,- DM Mo¬ 
dul: Parsec: 45,— DM, Modul: Munch-Man: 45,— 
TI-Revue 1-7 (la Zust.j: 25,- TI-Revuc (1-7) 
einzeln: 4,—. Andreas Braun, Tel. 024 73/7320 


TI99/4A zu verkaufen!! TI99/4A (wenig gelaufen) 
235,- DM (+ Rec-Kabel: 250.-). Spiele-Modul: 
Parsec 45,— DM — Anruf ab 1 7 Uhr bei Herman- 
Josef Wollgarten, Tel. 02473/8628 


TI99/4A + XB + Recorder + Kabel + Datenv. + 
Schach + Spielmodule + Joyst. + Literatur + Soft¬ 
ware DM 550,- 08461/1404 


TI99 / 4A + Ex Bas + Peribox + RS232 + 32K + 
Disk + Edi/Ass + Tl-Writer + Div. Module + Li¬ 
teratur 2500 DM. Apfeldorf 04122/54697 ab 
1 8 Uhr 


TI99/4Ä Verkaufe super Programme in TI-Ex- 
Basic. Info an Frank Henneberger, Pf. Lege¬ 
mann 19a, Nörvenich 2 

Tl-Writer, DM 210, Pers. Record. Kecping DM 40 
Pers. Report Generator DM 40,— Statistik DM 
40,-. 64K Platine u. Anleitung n. TI-Rcven DM 
25,-Tel. 051 1/35 63 132 n. 18 h 


Wer hat Lust, mit Anfänger Programme zu tau¬ 
schen (Tl-B)? Tel. 05971/57124). Ho.lger Hammer¬ 
schlag, 4440 Rheine 1 


TI99 + 2Te Konsole + X-Bas+Rec. Kabel + Joy + 
div. Bücher 3 div. Progr. Cass. Preis VB 600 DM 
Schwetjc 040/715 70 06 


Suche Ex-Basic, Mini-Memory, ext. 32KB. Heinz 
Jörgensen, Ewensweg 2, 2987 Grossheide 1 


TI-99/4A + Cass.-Rek. Kabel + Cass.-Rek. + Hand¬ 
buch + Software Pries: VB 250,—. Tel: 02354/ 
6974, 5882 Meinerzhagen 1 


TI 99/4A: Verkaufe Buchungsjournal .DM 70,— 
Bastert, Heinz Werner, 469 Herne 20, Tulpen¬ 
weg 61 


Suche Ext. Basic, evtl, mit Konsole, aber spott¬ 
billig und funktionstüchtig! Tel. 02103/44131 


Suche komplette Peripherie, T. 09332/31 95 


Tausche: HiFi-Cassettendeck Nakamichi-,.Dragon“ 
Reference bei AUDIO und STEREO PLAY 
Testberichte 8/83 Audio + 3/83 Stereoplay. 

Gegen: kompl. ausgestattete TI-99/4A Computer- 
Anlage. Mindest-Wert sollte nicht DM 3.500,— 
unterschreiten. Angebote an: R. Göhring, 
Alvesloher Str. 21,2358 Kaltenkirchen, 

Tel. 04191/73 05 
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SERVICE 



SPIEL 
SALON 


See-Schlacht 

Wir haben das Spiel „See- 
Schlacht“ genannt, ob¬ 
wohl es sich eigentlich 
um ein U-Boot Spiel han¬ 
delt! (cs existieren be¬ 
reits mehrere Spiele mit 
dem Namen „U-Boot“) 
Das Spiel ist für zwei 
Personen gedacht, die 
ihre beiden Schiffe mit 
den Joysticks 1 und 2 
Steuern (geübten Program¬ 
mierern wird es zwar 
nicht schwerfallen, das 
Spiel auf die Konsolen¬ 
tastatur umzuschreiben, 
was aber den Nachteil 
hat, daß zwei Spieler un¬ 
abhängig voneinander die 
Tastatur bedienen müs¬ 
sen). 

Die Aufgabe jedes 
Spielers besteht darin, 
den Gegner abzuschießen. 
Das Unterseeboot ist in 
jede Richtung steuerbar, 
genauso wie es in jede 
Richtung schießen kann. 
Geschossen wird, indem 
man auf den Feuerknopf 
drückt und innerhalb von 
ca. drei Sekunden den 
- Joystick in die gewünsch¬ 
te Schußrichtung drückt. 
Besonders reizvoll ist es 


auch, wenn man Gänge in 
die Felswand schießt, um 
sich darin vor den Schüs¬ 
sen des Gegners zu schüt¬ 
zen. Die Schüsse haben 
nur eine gewisse Reich¬ 
weite und es kommt des¬ 
halb auf eine gute Reak¬ 
tion im Nahkampf an. 
Das Anzeigenfeld rechts 
oben zeigt die restlichen 
Schüsse und die Siege des 
jeweiligen Spielers an. 
Gute Reaktion wird auch 
am Anfang verlangt, da es 
zu Spielbeginn nicht be¬ 
kannt ist, wer welches 
Schiff zu steuern hat. 

Zum Programm: 

Um die einzelnen Steuer¬ 
routinen nicht doppelt 
schreiben zu müssen, ha¬ 
ben wir eine zweidimen¬ 
sionale Variable verwen¬ 
det, die angibt, welcher 
Spieler am Zuge ist. Dies 
bedeutet aber nicht, daß 
ein Joystick bevorzugt 
bzw. benachteiligt ist, da 
diese Variable laufend ge¬ 
ändert wird. 

Das Programm wurde 
möglichst einfach gehal¬ 
ten, um der Schnelligkeit 
des doch relativ langsa¬ 


men TI Basic nichts zu 
nehmen. 

Das Programm ist zu¬ 
sätzlich noch mit einigen 
REMarks erklärt. Das 
Spiel kann auch mit dem 
Xbasicmodul gefahren 
werden und wird dadurch 
wesentlich schneller. 

Hühner + Rühmer 


Apfelfänger 

Haben Sie schon einmal 
in einer Fabrik als Apfel¬ 
fänger gearbeitet? Nein? 
Dann versuchen Sie es 
doch mal mit Ihrem TI in 
der Grundversion und 
diesem Programm. 

Sie müssen versuchen, 
die Äpfel, die übers Fließ¬ 
band laufen und irgend¬ 
wo vom Band fallen, un¬ 
ten mit dem Korb aufzu¬ 
fangen. Ist Ihnen dieses 
gelungen, laufen Sie 
schnell zu einer der 
beiden Tonnen; rechts 
und links; und lassen Sie 
sich für den gefangenen 
Apfel Ihren Lohn ‘gut¬ 
schreiben. Als ordentli¬ 
cher Fabrikarbeiter wer¬ 
den Sie natürlich nach 
dem jeweils gültigen Tarif 


bezahlt. Wenn Sie 10 Äp¬ 
fel in der vorgegebenen 
Zeit zur Tönne gebracht 
haben, dürfen Sie am 
nächsten Tag Weiter¬ 
arbeiten. Ihr Tarif erhöht 
sich von Tag zu Tag um 
50 %; die Zeit aber ver¬ 
kürzt sich jeden Tag um 
etwa 10%. 

Sollten Sie an einem 
Tag mit der Zeit nicht 
hinkommen, werden Sie 
mit Ihrem Lohn entlassen. 

Steuern können Sie 
den Korb mit folgenden 
Tasten: 

,A l links 

,D‘ rechts 

,B‘ Funktionstaste 

Die Taste ,B‘ hat zwei 
Funktionen: 

1. Wenn ein Apfel in der 
Luft ist, kann damit 
der Fall beschleunigt 
werden, wodurch man 
Zeit sparen kann. Der 
Nachteil ist aber, daß 
man den Korb nicht 
mehr bewegen kann, 
bis der Apfel unten ist. 
Daher sollte man schon 
sehr sicher sein, daß 
man unter dem Apfel 
steht, wenn man die 
Taste ,B‘ benutzt. 

2. Wenn kein Apfel in der 
Luft ist, kann man mit 
Taste ,B‘ den nächsten 
Apfel kommen lassen. 
Sollten Sie mehr als 4 

Tage in der Fabrik aus- 
halten, können Sie schon 
stolz auf Ihre Leistung 
sein. 

Viel Spaß mit diesem 
Spiel wünscht 

Torsten Rauer 


Variable: 

Die wichtigsten Variablen: 
Q = die feste Zeit 
F = Anzahl der noch zu 
fangenden Äpfel 
G = Tarif 
E = Guthaben 
D = Noch vorhandene 
Zeit - 

B = 3 mögliche Positio¬ 
nen des fallenden Apfels 
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10 REM******************** 


11 REM* * 

12 REM* APFELFAENGER * 

13 REM* Copyright by * 

14 REM* Thorsten Rauer * 

15 REM* * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 4724 Bytes * 


25 REM******************** 

26 REM 

100 REM ***V0RBEREITUNGEN 

110 DIM B(3) 

120 CALL CLEAR 
130 CALL SCREEN(8) 

140 FOR 1=1 TO 12 
150 CALL COLOR(1,2,8) 

160 NEXT I 

170 CALL COLOR(1,3,8) 

180 CALL COLOR(9,5,8) 

190 CALL COLOR(11,7,8) 

200 CALL COLOR(12,14,8) 

210 CALL CHAR(98,"00386CC6D6 
C66C38") 

220 CALL CHAR(106,"000000001 
818FFFF") 

230 CALL CHAR(115,"1A0C081C3 
66E7E3C") 

240 CALL CHAR(122,"387C44545 
454447C") 

250 CALL CHAR(107,"384444FEF 

E7C7C38") 

260 CALL CHAR(35,"FFFFFFFFFF 
FFFFFF") 

270 A=14 
280 Q=700 
290 D=Q 
300 F=10 
310 G=25 

320 REM ***TITELBILD 

330 print : : : : : : :" s s 

•SSSSSSS5555": \ 

" s APFELFAENGER s" 

I : I" SSSSSSSSS55 
s s": : : 

340 FOR 1=1 TO 3 

350 CALL S0UND(200,550,14,57 

5, 12) 

360 CALL SOUND(200,550,12,57 
5, 10) 

370 CALL SOUND(200,550,10,57 
5,8) 

380 CALL SOUND(800,210,4,221 

, 2 ) 

390 NEXT I 

400 PRINT ".s...c.THORSTEN.R 

auer _s": : : 

410 PRINT " 5SSSS55S 


5 S S S s M r 11 jjjjjjjjjjjjjjjj 

jjjjjjjjjjjj " • "b. mm . b . . m . b . 
.. b....b....b": : : 

420 PRINT " BITTE EINE TASTE 
. DRUECKEN" 

430 CALL KEY(0,K,S) 

440 CALL SCREEN(14) 

450 CALL SCREEN(3) 

460 CALL SOUND(50,876,17,863 
,19) 

470 IF S=0 THEN 430 

480 REM ***SPIELAUFBAU 

490 CALL CLEAR 

500 FOR 1=1 TO 13 

510 READ AA,AB,AC,AD 

520 CALL HCHAR(AA,AB,AC,AD) 

530 NEXT I 

540 FOR 1=1 TO 2 

550 READ A$,L,N 

560 GOSUB 640 

570 NEXT I 

580 GOSUB 690 

590 GOTO 840 

600 DATA 1,1,35,96,5,1,106,3 
2,6,1,98,1,6,5,98,1,6,9,98,1 
,6,13,98,1,6,17,98,1,6,21,98 
, 1 

610 DATA 6,25,98,1,6,29,98,1 
,21,3,122,1,21,30,122,1,22,1 
,35,96 

620 DATA ZEIT######S,2,4,GUT 
HABEN######DM###T ARIF####DM, 
23,2 

630 REM ***PRINTROUTI NE 
640 FOR SS=i TO LEN(A$) 

650 CALL HCHAR(L,N-l+SS,ASC( 
SEG*(A$,SS,1))) 

660 NEXT SS 

670 RETURN 

680 REM ***ZAEHLER • 

690 CALL HCHAR(2,9,35,5) 

700 FOR SS=1 TO LEN <STR$(D)) 
710 CALL HCHAR(2,8+SS,ASC(SE 
G$(STR$(D),SS,1))) 

720 NEXT SS 

730 CALL HCHAR(2,17,35,16) 

740 CALL HCHAR(2,20,115,F) 

750 CALL HCHAR(23,11,35,5) 

760 FOR SS=1 TO LEN(STR$(E)) 
770 CALL HCHAR(23,10+SS,ASC( 
SEG$(STR$(E),SS,1))) 

780 NEXT SS 

790 CALL HCHAR(23,27,35,3) 

800 FOR SS=1 TO LEN(STR$(G)) 
810 CALL HCHAR(23,26+SS,ASC( 
SEG$(STR$(G),SS,1))) 

820 NEXT SS 

830 RETURN 

840 REM ***BE6INN 

850 CALL HCHAR(21,A,107) 







860 0=0 

870 RANDOMIZE 

880 B(2)=INT(RND*18+5) 

890 B(1)=B(2)-1 
900 B (3)=B(2)+1 
910 FOR 1=1 TO B(2) 

920 CALL HCHAR(5,I,115) 

930 CALL SOUND(3,110,0,112,0 
,1110,3) 

940 CALL HCHAR(5,I,106) 

950 NEXT I 

960 FOR 1=0 TO 30 STEP 5 
970 CALL SOUND(-300,750,I) 
980 NEXT I 

' 990 REM***BEWEGUNGSABLAUEFE 
1000 FOR 1=7 TO 20 
1010 IF 0=1 THEN 1030 
1020 R=INT(RND*3+i) 

1030 CALL HCHAR(I,B(R),115) 
1040 CALL SOUND(20,140,3,-1, 
0) 

1050 IF OOO THEN 1160 
1060 CALL KEY(1,K,S) 

1070 D=D-1 

1080 IF (K=1)+(K=3)+(K=16)TH 
EN 1090 ELSE 1160 
1090 IF K< >16 THEN 1120 
1100 0=1 
1110 GOTO 1160 
1120 CALL HCHAR(21,A,32) 

1130 A=A+(K-2) 

1140 IF (A<4)+<A>29)THEN 140 

0 

1150 CALL HCHAR(21,A,107) 

1160 CALL HCHAR(I,B(R),32) 
1170 NEXT I 
1180 GOSUB 680 
1190 IF A=B(R)THEN 1350 
1200 FOR 1=550 TO 110 STEP - 
20 

1210 CALL SOUND(-300,1,2) 

1220 NEXT I 

1230 CALL KEY(1,K,S) 

1240 D=D-1 

1250 IF D< =0 THEN 1760 
1260 IF D>40 THEN 1280 
1270 CALL SOUND(35,342,0) 
1280 IF (K=i)+(K=3)+(K=16)TH 
EN 1290 ELSE 1230 
1290 IF K=16 THEN 850 
1300 CALL HCHAR(21,A,32) 

1310 A=A+(K-2) 

1320 IF (A<4)+(A>29)THEN 140 
0 

1330 CALL HCHAR(21,A,107) 
1340 GOTO 1230 
1350 FOR AA=0 TO 30 STEP 10 
1360 CALL SOUND(-400,1450,AA 
) 

1370 NEXT AA 


1380 P=1 
1390 GOTO 1230 
1400 A=A-(K-2) 

1410 IF P=1 THEN 1440 

1420 IF I<20 THEN 1150 ELSE 

1330 

1430 REM ***TONNE MIT APFEL 
***ERREICHT 

1440 FOR 1=585 TO 1150 STEP 
25 

1450 CALL SOUND(25,I,0) 

1460 NEXT 1 
1470 E=E+G 
1480 F=F-1 
1490 P=0 
1500 GOSUB 690 

1510 IF F=0 THEN 1520 ELSE 1 
330 

1520 CALL SOUND(600,667,0,68 
7,0) 

1530 A$="PRIMA!DU HAST WIEDE 
R" 

1540 L=11 
1550 N=6 
1560 GOSUB 640 

1570 A$="EINEN TAG GESCHAFFT 

i 

1580 L=13 "„ 

1590 N=6 
1600 P=0 
1610 0=0' 

1620 GOSUB 640 
1630 G=G+(G/100*50) 

1640 IF G<>INT(G)THEN 1650 E 

LSE 1670 

1650 G=INT(G+1) 

1660 E=E+(INT(D)) 

1670 Q=Q-(Q/100*10) 

1680 D=Q 
1690 F= 10 
1700 GOSUB 690 
1710 CALL KEY(0,K,S) 

1720 IF S=0 THEN 1710 
1730 CALL HCHAR(11,1,32,32) 
1740 CALL HCHAR(13,1,32,32) 
1750 GOTO 850 
1760 REM ***ENDE 
1770 FOR 1=1 TO 30 STEP 3 
1780 CALL SOUND(150,110,1,35 
0 , 1 ) 

1790 NEXT I 

1800 CALL CLEAR 

1810 PRINT ::::::::: 

:" LEIDER HABEN SIE AN DIES 
EM": :" TAG NICHT SCHNELL GE 
NUG": :" GEARBEITET.": : 

1820 PRINT " DAHER MUESSEN W 
IR SIE " : " MIT IHREM BISHE 

R " ERARBEITETEN KAPITAL 

von": ";e;"DM entlassen. 
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1830 

CALL 

KEY < 0 ,K,S) 

1840 

CALL 

SCREEN(16) 

1850 

CALL 

SCREEN(9) 

1860 

0,0) 

CALL 

SOUND(25,110,0,110 

1870 

IF S= 

=0 THEN 1830 

1880 

CALL 

CLEAR 

1890 

PRINT " M0ECHTEN SIE SI 

CH ": 

: " NOCHEINMAL BEI UNS 

BEWERBEN": 

: :" wenn ja dann 

’ J’ 

druecken": : : : 

1900 

CALL 

KEY(0,K,S) 

1910 

CALL 

SCREEN(4) 

1920 

CALL 

SCREEN(5) 

T930 

0) 

CALL 

SOUND(25,110,5,-1, 

1940 

IF S = 

: 0 THEN 1900 

1950 

IF K = 

: 74 THEN 1980 

1960 

CALL 

CLEAR 

1970 

END 


1980 

P = 0 


1990 

0=0 


2000 

RESTORE 600 

2010 

GOTO 

100 


BÖRSE 


GPL-Disassembler für XB+32K+Disk mit ausf. 
Anl. 20 DM. Deutsche Erklärung aller Forth-Wör- 
tcr 20 DM. Suche Anleitung zum SST-Basic- 
Compilcr. R. Prinzensing, Geitlingstr. 27, 4630 
Bochum 6 


Maschinenprogramme für XB, MM u. E/A: GPL- 
Disassembler, Fast-Copy etc. Info gg. Rückum¬ 
schlag: Eichhorn, Mathias, Ziegelheck 1,6240 
Königstein 


Tausche oder verkaufe Prog. in X-Basic oder As¬ 
sembler. Überwiegend Anwenderprog. / Utili- 
tys. Manfred Rüß, Tel. 030/363 26 55 


LOGO-Intcrpreter ermögicht tolle Grafik Spiele¬ 
reien (XB) 20 DM an M. Bannert — Mozartstr. 5 
8676 Schwrzcnbach/Saale. Tel: 09284—8338 


Verk. TI-Kochbuch 1 = 2 = DM 40,- TI-Tips 8c 
Tricks = DM 40. Joystickadapter = DM 25. M. 
Bannert. Tel. 09284-8338 


Verk. TI99/4A + Ex-Basic + Parsec + Pec. Kabel 
+ Flougsimulator + Prog. + Listings nur 495 DM. 
Neupr. 800 DM. Tel. 02671/14583 


Ti99/4A + Ex-Basic + Rec-Kabel + Haushalts¬ 
und Schachmodul + 2 Bücher, VB 650 DM, nur 
kompl. Tel. 0211/55 45 09, nach 16 Uhr 


TI-Module. Bücher, Drucker, Programme. 3S- 
Liste geg. Freiumschalg. Ralph Schad, Wasser¬ 
bett 6, 68 Mannheim 51 


Suche lür den Ti: Spielmodule, Laufwerk, 32k 
Erweiterung, Schnittstelle extern oder wenn gün¬ 
stig in (mit) Peri-box. 0571 /71597 



10 REM******************** 


11 REM* * 

12 REM* SEE-SCHLACHT * 

13 REM* Copyright by * 

14 REM* Ruhmer 6c Ruhmer * 

15 REM* * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* Joystick 1&2 * 

20 REM* * 

21 REM* * 

23 REM* Speicherbelegung * 

24 REM* 5543 Bytes * 


25 REM******************** 

26 REM 

220 CALL COLOR(12,16,10) 

230 CALL CHAR(122,"F84444487 
6514AC4" ) 

240 CALL CLEAR 

250 PRINT " . 


. ^ 2 ^ - Ruhmer So-f 


I V. S a a a a a 

260 PRINT "***************** 
************. .... .See-Schlac 

ht.****************** 

***********": : ; ; 

270 PRINT "COPYRIGHT BY Ruhm 

er Manfred : ".& 

Ruhmer Klaus" 


280 GOSUB 1870 
290 CALL KEY(1,K,TI) 

300 CALL KEY <2,K,T) 

310 IF (T=-1)+(T1=-1)THEN 31 
5 ELSE 290 
315 GOSUB 1950 
320 CALL CLEAR 

330 CALL CHAR(97,"FFFFFFFFFF 
FFFFFF") 

340 CALL CHAR (98,"80C0E0E0F0 
FCFEFF") 

350 CALL CHAR(99,"80C0C0C0C0 
E0FEFF") 

360 CALL CHAR (100,"FF7F3F3F1 
F0F07.01 " ) 

370 CALL CHAR(101,"FFFEFEFCF 
CFCF030") 

380 CALL CHAR(102,"01073F3F7 
F7F7FFF") 

390 CALL CHAR(120,"") 

400 CALL CHAR(111,"3C3C3C7E9 
9997E3C") 

410 CALL CHAR(110,"000000131 
8 " ) 

420 CALL CHAR(112,-0000001Fl 
0101010 “) 

430 CALL CHAR(113,"000000F01 
0101010 ") 

440 CALL CHAR(114,"101010F0" 

> » 
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450 CALL CHAR<115*i©l&101F M 
) 

460 CALL CHARCL16, "101010101 
0101010 ") 

470 CALL CHAR(117,"000000FF" 
) 


480 CALL CHAR(118,"1010101F1 
0101010 ") 

490 CALL CHAR(119,"101010F01 
0101010") 

500 SG(1)=0 
510 SG<2)=0 

520 CALL COLOR(10,16,6) 

530 CALL COLOR(12,1,1) 

540 CALL COLOR(8,3,3) 

550 CALL COLOR(9,8,6) 

560 CALL COLOR(1,6,6) 

570 FOR N=1 TO 2 
580 SU(N)=15 
590 SH(N)=3 
600 NEXT N 
610 Z(1)=2 
620 Z(2)=5 
630 Z(3> = 3 
640 Z(4)=6 

650 PRINT ------------------ 

- 'puuuuuuäääaaaaaaaaaaaaaa 

aaa A tPL. 1: le. ..daae... 

.da^'tSIEGE*. " 

660* PRINT "_ daac- fc.. 

..a^vuuuuuub.daaaaaaaab. 

..a'tPL.2: lab.daaaaaaaac 


..a^tSIEGE:" 

670 PRINT "aac.de-daa 

b a A =;uuuuuuaaa. .da 

e a.--------aaab. 

..daaaaaaaa" 

680 PRINT “ aaae.. 

.....daaae -aae.............. 




690 PRINT "... 

. .-faaaab -faaa 
.faaaaaaaaaae 

.Haa. . . 

. dae ..daaaae. 

4-r n 

... TU ..... . 

700 PRINT " ........ .. 



.. daaaaaaaa" 


710 PRINT "... 

i....Tb. ...... 

... daaaaaaa. ■. 

...f aab .. T ac . 


, . -f aaaacf aae. 


.......da.. 

720 PRINT " ac . .'. -f aaaaaaaae. . 

.. . -f aaaaaaaaaaaaaabf a 

aaaaaaaaaaa" 

730 CALL HCHAR(24,2,94,30) 
740 CALL VCHAR(1,1,94,24) 

750 CALL VCHAR(1,2,94) 

760 CALL VCHAR(2,2,97,22) 


770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 


CALL HCHAR(1,31,117) 

CALL HCHAR(4,31,117) 

CALL HCHAR(7,31,117) 

CALL HCHAR(8,31,94) 

CALL VCHAR(1,32,116,7) 
CALL VCHAR(8,32,94,17) 
CALL VCHAR(9,31,97, 15 ) 
CALL HCHAR ( 2 , 31 , 53 ) 

CALL HCHAR(5,31,53) 

CALL HCHAR(1,32,113) 

CALL HCHAR(4,32,119) 

CALL HCHAR(7,32,114) 

RANDOMIZE 

M=0 

N=INT(RND*2)+1 
M=M+ 1 

A(N)=INT(RND*23)+3 
E(N)-INT(RND*20)+3 
CALL GCHAR(B(N>,A(N),C) 
IF C< >32 THEN 930 
CALL HCHAR(B<N),A<N),111 


) 

980 A$=STR$(SG(N)) 
990 SF=31 
1000 ZE=Z(N+2) 


1010 GOSUB 1660 

1020 GOSUB 1710 

1030 IF M=1 THEN 920 

1040 REM *' HAUPTPROGRAMM * 

1050 CALL JOYST (N,X(N),Y(N) ) 

1060 CALL KEY(N,K,T) 

1070 IF K< >18 THEN 1100 
1080 GOSUB 1200 
1090 GOTO 1170 

1100 IF (ABS (X (N) ) =0)*(ABS (Y 
(N))=0)THEN 1170 
1110 CALL GCHAR(B(N) - (Y(N)/4 
) , A (N) + (X (N) / 4 ),C) 

1120 IF C=32 THEN 1130 ELSE 
1170 

1130 CALL HCHAR<B(N)-(Y(N)/4 
),A(N)+(X(N)/4),111) 

1140 CALL HCHAR(B(N),A(N),32 
) ' 

1150 E < N)=B(N)-(Y(N)/4) 

1160 A(N)=A(N)+(X(N)/4) 

1170 GOSUB 1710 
1180 GOTO 1050 

1190 REM SCHUSSUNTERPROGRAMM 
1200 R(N)=A(N) 

1210 S(N)=B(N) 

1220 FOR 1=1 TO 16 

1230 CALL JOYST (N,X(N) ,.Y(N) ) 

1240 IF (ABS(X(N))=4)+(ABS(Y 

(N))=4)THEN 1270 

1250 NEXT I 

1260 RETURN • 

1270 ZE=Z(N) 

1280 SP=30 

1290 SU(N)=SU<N)-1 

1300 IF SU ( N )< 0 THEN 1540 
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1310 CALL SOUND(100,-6,0) 
1320 A$=STR$(SU(N)) 

1330 IF LEN(A$)=2 THEN 1350 

1340 A$=STR$(SU(N))&CHR$(120 
) 

1350 GOSUB 1660 

1360 FÜR 1=1 TO 5 

1370 CALL GCHAR(S(N)-(Y(N)/4 

),R(N) + (X(N)/4),C) 

1380 IF C=?4 THEN 1260 
1390 CALL HCHAR(S(N)-(Y(N)/4 
),R(N) + (X(N)7 4),110) 

1400 S(N)=S(N)-(Y(N)/4) 

1410 R <M)=R <N) + <X <N)/4) 

1420 CALL HCHAR(S<N),R(N),32 
) 

1430 IF COlll THEN 1490 
1440 GOTO 1530 

1450 CALL HCHAR(B(N),A(N),32 
) 

1460 GOSUB 1710 
1470 CALL HCHAR(B (N),A(N),32 
) 

1480 GOTO 890 

1490 IF C032 THEN 1260 

1500 NEX7 I 

1510 GOTO 1260 

1520 REM * AUSWERTUNG * 

1530 GOSUB 1710 

1540 SH(N) =SH <N)-1 

1550 GOSUB 1870 

1560 IF SH(N)>0 THEN 1630 

1570 GOSUB 1-710 

1580 SG (N)=SG(N)+1 

1590 GOSUB 1870 

1600 GOSUB 1870 

1610 IF SG (N)>2 THEN 1760 

1620 GOTO 570 " 

1630 GOSUB 1710 

1640 GOTO 1450 

1650 REM * SCHREIEROUTINE * 

1660 FÜR 1=1 TO LEN(A$) 

1670 CALL HCHAR < 2E,SP,ASC(SE 
G$(A£,I,i))) 

1680 SP=SF* + 1 

1690 NEXT I 

1700 RETURN 

1710 IF N=1 THEN 1740 

1720 N=i 

1730 GOTO 1750 

1740 N=2 

1750 RETURN 

1760 CALL CLEAR 

1770 FOR 1=1 TO 8 

1780 CALL COLOR(I,16,8) 

1790 NEXT I 

1800 CALL SCREEN(8) 

1810 PRINT "PL."iNi"HAT GEWO 
NNEN ! ! - 


1820 PRINT "NOCH EIN SPIEL G 
EGEN DEN ": :"CHAMPION ? (J/ 
N) " 

1830 CALL KEY(0,K,T) 

1840 IF (K=74)+(K=106)THEN 5 
00 

1850 IF T=0 THEN 1830 
1860 END 

1870 CALL _SOUND(120,262,8) 
1880 CALL SOUND(70,110,30) 
1890 CALL SOUND(120,262,8,33 
0,6) 

1900 CALL SOUND(70,110,30) 
1910 CALL SOUND(120,262,7,33 
0,5,392,3) 

1920 CALL SOUND(70,110,30) 
1930 CALL SOUND(450,330,3,39 
2,2,523,0) 

1940 RETURN 
1950 CALL CLEAR 
1960 PRINT "...*** SPIELANLE 
ITUNG ***": : :"SIE BEFINDEN 

SICH TIEF UNTER": :"DER WAS 
SEROBERFLAECHE IN": : 

1970 PRINT "EINEM U-BOOT DAS 
SIE MIT": :"DEM JOYSTICK ST 
EUERN MUESSEN": :"ES SPIELEN 
2 SPIELER DIE": : 

1980 PRINT "IHRE U-BÜQTE JEW 
EILS MIT": :"JOYSTICH 1 ODER 
JOYSTICK 2": :"STEUERN" 

1990 PRIilT : :"T A S T E D 

R U E C K E N " 

2000 CALL KEY(1,T,U) 

2010 CALL KEY(2,TI,Ui) 

2020 IF (U=0)*(U1=0)THEN 200 
0. 

2030 CALL CLEAR 
2040 PRINT "SIE MUESSEN NUN 
VERSUCHEN": :"DEN GEGNER ABZ 
USCHIESSEN": :"GESCHOSSEN WI 
RD INDEM MAN": : 

2050 PRINT "AUF DIE ACTION-T 
ASTE DRUECKT": :"UND SOFORT 
DEM JOYSTICK IN": :"DIE GEWU 
ENSCHTE SCHUSS-": : 

2060 PRINT "RICHTUNG DRUECKT 

": : .*** VIEL-SPASS * 

**" : :" TASTE DRUEC 
K E N" 

2070 CALL KEY(1,T,U) 

2080 CALL KEY(2,Ti,Ui) 

2090 IF (U=0)*(Ui=0)THEN 207 
0 

2100 CALL CLEAR 
2110 RETURN 


Neue Telefon-Nummer! 
089/1298013 Ab 1.10.85! 
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SERVICE 



Pokelisten- 

generator 

Das Programm dient zur 
Erstellung von Pokeli- 
sten auf einem Drucker. 
Es fragt zunächst die 
Schnittstellenbezeich¬ 
nung sowie Anfangs- und 
Endadresse des gewünsch¬ 
ten Bereiches ab. An¬ 
schließend wird die Poke- 
liste in DATA-Zeilen aus¬ 
gedruckt. Ein im Spei¬ 
cher befindliches As¬ 
sembler-Programm kann 
dadurch in eine abschreib- 
fähige Form gebracht 
und später in einem BA- 
SlC-Programm verwendet 
werden. 

Karnaugh- 

Veitch- 

Diagramm 

Dieses Programm dient 
-zur Ermittlung von 
Schaltfunktionen aus 
einer Wahrheitstabelle. 
Dabei wird zunächst eine 
Wahrheitstabelle für vier 
Variable erstellt und die 
Eingabe des jeweiligen 
Zustandes für A abge¬ 
fragt. Bei einer fehlerhaf¬ 
ten Eingabe kann durch 
Betätigen der Taste K 
der zuletzt eingegebene 
Wert korrigiert werden. 
Mit x werden die soge¬ 
nannten don’t care Fel¬ 
der gekennzeichnet. Sie 
werden dann verwendet, 
wenn der Zustand des 
Ausgangs A für die Be¬ 
rechnung der Schaltfunk¬ 
tion ohne Bedeutung ist. 
Nach Abschluß des Ein¬ 
gabevorganges erstellt das 
Programm das soge¬ 


nannte KV-Diagramm, in¬ 
dem es die Werte für A 
bestimmten Feldern des 
Diagramms zuordnet. Das 
KV-Diagramm ist die gra¬ 
fische Veranschaulichung 
der Wahrheitstabelle 
einer Schaltfunktion. 
Dieses Verfahren der 
Vereinfachung von 

Schaltfunktionen wurde 
1952 von E.W. Veitch er¬ 
funden und 1953 von M. 
Karnaugh weiterentwik- 
kelt. Das Programm er¬ 
mittelt nun aus dem Dia¬ 
gramm die Schaltfunk¬ 
tion, indem es mit 1 ge¬ 
kennzeichnete Felder zu 
Gruppen zusammenfaßt 
und diesen ein bestimmtes 
Ergebnis zuordnet. 

Dieses Programm kann 
in zwei Arten angewen¬ 
det werden: 

Zum einen können vor¬ 
handene Schaltungen mi¬ 
nimiert werden. Dazu 
wird aus der vorhandenen 
Schaltung die Wahrheits¬ 
tabelle ermittelt und ein¬ 
gegeben. Für Eingangs¬ 
kombinationen, die nicht 
Vorkommen oder nicht 
von Bedeutung sind, wird 
x eingegeben. Das Pro¬ 
gramm ermittelt aus der 
Eingabe die optimierte 
Schaltfunktion, aus der 
die Schaltung entworfen 
werden kann. 

Zum anderen kann aus 
einer entwickelten Wahr¬ 
heitstabelle die minimier¬ 
te Schaltfunktion ermit¬ 
telt werden. Die Eingabe 
erfolgt analog zum o.a. 
Beispiel. 

Bernhard Schmidt 

Hexdump 

Mit diesem Programm 
kann der Speicherinhalt 
auf einem Drucker ausge¬ 


geben werden. Es wer¬ 
den jeweils 16 Werte in 
hexadezimaler Form und 
die Hex-Adresse des je¬ 
weils ersten Wertes ausge- 
gegeben. 

Bernard Schmidt 



Das Programm „Wider¬ 
stand“ ist für den Elek¬ 
tronik-Bastler gedacht. 

Im Menue kann folgen¬ 
de Auswahl getroffen 
werden. 

0 — Errechnen von paral¬ 
lelgeschalteten Widerstän¬ 
den zu einem Ersatzwi¬ 
derstand 2, 3, 4 und 5 
parallele können berech¬ 
net werden. 

1 und 2 berechnet der 
Farbcode 

z.B. 0 = schwarz oder 
rot = 2 

3. 4 u. 5 errechnen wahl¬ 
weise Widerstand, Strom 
oder Spannung. 

6. ist das Programmende. 

Rüdiger Hussy 

Space Invaders 

Der alte Spielhallenhit 
„Space Invaders“ hat nun 
auch endlich den TI99 
eingeholt. Zwar eine et¬ 
was abgeänderte Version, 
auch etwas leichter zu 
spielen,, aber unverkenn¬ 
bar standen die Original- 
Invaders für dieses Pro¬ 
gramm Pate. Zu den Spiel¬ 
regeln gibt es da wohl 
nicht mehr viel zu sagen. 
Jeder Computerfreak ist 
mit diesem Oldie vertraut. 
Daß wir es trotzdem ab- 
drucken, hat drei Gründe. 
Erstens hat sich der 
Autor viel Mühe damit 
gemacht und das soll na¬ 
türlich auch belohnt wer¬ 
den, denn dies ist Eure 
Zeitschrift ' und wir 


weisen nur manchmal ein 
bißchen in die Richtung, 
wo’s lang gehen sollte. 
Zweitens ist das Spiel in 
TI-Basic geschrieben wor¬ 
den. Damit denken wir 
an die User, die („immer 
noch?“) kein Extended- 
Basic Modul besitzen 
(Jetzt wird’s aber langsam 
Zeit). Und drittens ist die 
Grafik ganz toll gewor¬ 
den. Auch die Spielge¬ 
schwindigkeit ist für die 
mageren Möglichkeiten 
des TI-Basic hervorragend 
programmiert. Zum Spie¬ 
len nehmt Ihr übrigens 
Euren Joystick aus der 
Schublade. Damit läßt 
sich die Kanone nach 
rechts und links bewe¬ 
gen. 



Sinn: Dieses Programm 
errechnet aufgrund von 
max. 22 feststehenden 
Werten bis zu 22 Werte 
in die Zukunft (Prognose 
oder Hochrechnung). 

Diese Werte werden 
auf dem Bildschirm aus¬ 
gegeben. Anschließend 
werden diese Hochrech¬ 
nungswerte auf einer Gra¬ 
fik dargestellt.- 
100—160 Dimensionie¬ 
rung und Titel 
170 Einleitung 
180—300 Abfrage der 
feststehenden Werte 
310—430 Ausgabe der 
Prognosewerte (Hoch¬ 
rechnung) 

440—820 Ausgabe der 
Grafik 

830—900 Ende des Pro¬ 
gramms 

910-950 Unterpro¬ 
gramm Stotterdruck 

Bitte lesen Sie weiter auf Seite 66 
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10 ! ********************** 
11 !. * * 

12 ! * PROGNOSE * 

13 ! * * 

14 -' * Copyright bv # 

15 ! * * 

16!# R - Eitler- % 

17 ! # * 

13!# * 

19 ! * Eer;D=-t i gt e Geraete # 

20 ! * TI99/4A Konsole * 

21 ! # Ext. Basic # 

22 « # * 

26 ! # Speicherbelegung * 

27 ! * 4*4? Bytes * 

28 ! * * 

29 « ****** ##*#4f****4* *##.#* 

30 ! 

100 CALL CLEAR *.: DIM l,<<22>, 
DAT(22),WE< 22) : ; CAlL CHAR<3 
3,"000000FFrr") 

110 W4=“PROGNOSE-PROGRAMM" 
120 CALL STOTT(12,W4) 


PROGNOSE 
Copyright by 
R. Eitler- 


* Berioetigte Geraete # 

# T199/4 A Konsole # 

# Ext. Basic # 

* # 

* Speicherbelegung * 

* 4^47 Bytes * 

* # 
*#*#***#*# ******* ***** 


130 

ZE 1 = 

U : r 

SRI =3 

• • *7 Z7 

3 : : 

SP? 

= 25 



140 

CALL 

RAHME 

N(2E1, 

SRI , Zi 

SP2) 





150 

DI SP 

LAY AT 

(24,3) 

: " pro- 

rr r* i e 

r t v 

c<n r , b 

i 11 e r " 

1 60 

FOR 

1 = 1 TO 

400 : 

: NEX 

1 70 

CALL 

EINl.E 

IT UNS 


180 

CA! !. 

CLEAR 



190 

DJSF 

i AY AI 

(1,1): 

"wiev: 

WERTE i 

I EG EM 

VOR: " 

: : D1: 

A Y A 

1(2, 

1 > : "K4 

X. 2 2 

WEF-Tp ■ 

: AC 

r F PT 

AT ( l , 

7m : N 

- i Q Li 


HCHAP «'2,2,23.20 ' 

200 IF N '.'22 THEN 190 
210 FCR T--1 T0‘ N 
220 DT SPLA V AT (1+3,2) : WETRI " 
T: DI SPLAY A T (1+2,8): US ING 

:: Display atu+ 2 , 10 ) 
?":" :: accept at r i •»2,15): w < 

I) 

230 NEXT i 
240 T=LOG (W ( 1)) 

250 X=0 

260 FÜR 1 = 2 TO N :: L=LOG(i-M 


I)) : : t rT + l : : x=y+ •: i - 1 ) *l : 

: NEXT T 

270 A=6*<2#X/(N-l ) -T)/M/(N+1 


280 G=EXP (A) - 1 ; ; G~ i #0* < rvp 
(A> - J ) : : G=T NT <G* i 0.0 + . 5) / 100 
2°0 DISPLAY AT(24,1) : e hITTL. 
W;••• rHSTüN3RATE: " ■; ; DI SPLAY A 
T (24,22) : US ING “ fcfcä, : 6- 

CALL HCHAR(24,31, 2 ~) 

300 CALL KEY ( Qi , KE, S) : : IF £ = 
Qi -r iJR; 300 

310 CALL CLEAR 


320 DISPLAY AT(1,1):"HOCHREC 
HN'JNGS-WERTE?" :: DISPLAY AT 
(2,1):"MAXIMAL 22 WERTE" :: 
ACCEPT AT(1,25)IM :: CALL HC 
HAR(2,3,33,28) 

330 G=EXP(A)-1 :: WT=EXP(T/N 
-A#(N-l) /2) 

340 CALL HCHARd ,3,32,28) : : 
DISPLAY AT(1,2):"HOCHRECHNUN 
G DER PERIODEN" 

350 K=N :: H= (G +1 ) '*K 
360 FOR 1=1 TO M 
370 WE(I)=WT*H :: WE(I)=INT( 
WE(I)#100+,5)/100 

380 DISPLAY AT(I+2,3):"WERT" 
:: DISPLAY AT(I+2, 8 ):USING 
DISPLAY AT(I+2,10) 

' ": " :: DISPLAY AT(I+2,15):ü 
SING "#«####":WE<I) 

390 K=K+1 
400 H= (6+1 ) ''K 
410 IF I=M THEN 430 
420 NEXT I 

430 CALL KEY(0,KE,S):: IF S= 
0 THEN 430 

440 CALL CLEAR :: CALL SCREE 
N (16) 

450 DISPLAY AT ( 24 , 1 );"HOCHRE 
CHNUNG:";Mj"PERIODEN" 

460 S14="7F7F7F7F7F7F7P7F" 

470 924= 007F7F7F7F7F7F7F &&& 
0T~T7F7F?F?F0000007F 7F7F7F 7 
F 000000007F 7 F 7 F 7 F" 

480 934= "000000 0 00 0 7p *?p 7 p q.& c 
00YTL 000007F _> F 00000000000000 ;' 

F 00000 © 00000000.00 " 

490 CALL CHAR(96,SIS);; CALL 
CHART97,S?4' :; CALL CHAR(10 
1,S34) 

500 944="F80808080808.08080F0 
0000000000000 F F 0000000000000 
03809090808080808" : : CALL C 
HAR(112,344):: CALL COLORUl 
. J 3 ; 1 ) 

510 S54= " F00000.00000000001 p i 
0 10 ! 01 0 1 0 1 O j 0 1 C 1 0 1 0 1 0 1010101 
ö' a : I CALL CHAR <116,354) 

520 DI SPL AY AT (10,1) ;*•• i £T 1 0 
8* SUMME ODER MAXIMUM": ;"DE 
R DATEN ? (S/M)" 

530 ACCEPT AT(14,14):MDD4 
540 IF MGD4<> B S" AND M0D4<' ,! 
M" THE!! 5 30 

550 FOR 1=10 TO 14 CALL H 
CHARU ; 3,32,28):: NEXT I 
560 CAl L COLOR(9,7,1.10,7,1) 
570 FOR 1=0 TO 10 :: DISPLAY 
AT(2#I+ 2,1) :USING “### « ; ( i0 
-I)#l 0 :: NEXT 3 
580 FOR 1=1 TO 10 ;; DISPLAY 
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ATf2_*I,4> ; “p" : DISPLAY AT 

< 2*1 +1.4):" s"' 

590 DISPLAY AT(2*I,27):"u" 1 
: DISPLAY AT(2*I+1,27):“v" : 
t NEXT I 

600 DISPLAY AT<22,4):"q" 

610 FOR 1=1 TO 11 :: DISPLAY 
AT{22,2*1+3):“rr« :: NEXT I 
620 DISPLAY AT(22,27):"i" 

630 DA=WE(1) 

640 FOR 1=2 "0 M 
650 DA=HAX(DA,WE(I)) 

660 NEXT I 

670 IF MOD$="S" THEN 740 
680 DISPLAY AT(1,27):"NA" 

690 FOR 1=1 TO N 

700 WE(I)=WF < I)/DA*160 

710 WE(I)-INT(WE<1)^-3) 

720 NEXT I 
730 GOTO 760 

740 DA=0 DISPLAY AT(i,27) 

:"Sü" :: ROR 1=1 TO M :: da= 

DA + WF(T 5: : NEXT I 

750 GOTO 690 

760 FOR 1=1 TO M 

770 HOEHE =INT(WE(I) /8 > 

790 ZUS=WE(I)-HOEHEX-8 

790 CALL OCHAR(21-HOEHE,I+6, 

104-ZUS,1) 

800 CALL OCHAR(22-HOEHE,I+6, 
96.HOEHE) 

810 NEXT I 

820 CALL KEY(0,KE,S):: IF 3= 

0 THEN 820 
830 U$="E N D E" 

840 CALL CLEAR 

850 CALL ST OTT(12,W$) 

860 zei=i i :: sp 1 = 1 3 ZE2= 
13 :: SP2=2l 

* 870 CALL RAHMEN(ZEi,SP1,ZE2, 

SP2) . 

880 DISPLAY AT(24,311"PROGRA 
MMIERT VON R.BITTER" 

890 FOR 1=1 TO 800 :: NEXT I 
900 END 

910 SUB STOTT <12,W$) 

920 Q=INT<32-LEN(W$))/2+i 
930 FOR AX=Q TO LEN(W$)+Q-1 

:: s*=seg$< w$,AX-G+i,l):: fo 

R AZ=3i TO AX STEP -1 
940 CALL HCHAR(12,AZ +1,32) 1 I 
CALL HCHAR(12,AZ,ASC(S«)):I 
NEXT AZ :: NEXT AX 
950 SUBEND 

960 SUB RAHMEN(ZEI ,SRI ,ZE2,S 
P2) 

970 CALL CHAR(128,"000000FFF 
F", 129,"1818181818181318",13 
0,«0000001F1F18131S",131,"00 
0000F8F8181818“,132,“1818181 
F1F“,133,«181818F8F8“) 


980 CALL HCHAR(ZEI,SP1,130): 

: CALL HCHARCZE1,SP2,131):: 
CALL HCHAR(ZE2,SP 1,I32):I CA 
LL HCHAR<ZE2,SP2,133) 

990 CALL HCHAR (ZEI ,SPH1, 123 
.SP2-SP1 -i> 

1000 CALL HCHAR(ZE2,SP1+1,12 
8,SP2-SP1-1) 

1010 CALL VCHAR(ZEI + 1,SP 1,12 
9,ZE2-ZE1-1)1 \ CALL VCHARtZE 
.] +1 ,SP2. 129 , ZE2-ZE1 - i ) 

1020 SUBEND 

1030 SUB EINLEITUNG 

1040 CALL CLEAR 

1050 ZE1=1 :: SPl=2 :: ZE2=2 

4 :: SP2=3.t 

1060 CALL RAHMEN(ZEi,SRI,ZE2 
, SP2) 

1070 DI SPL AY AT (?,8) : HÜCHRE 
CHNUNGEN" : : C ALL HCHAR(3, 10 

,33,14) 

1080 DISPLAY AT(4,1':"DIESES 
PROGRAMM SFRECHNET": :"AUF 

GRUND VON MAX .:22 FEST-": : "9 

tehemden werten bis zu 22": 

:"WERTE IN DIE ZUKUNFT“ 

1090 DISPLAY AT<12,i):”(PROG 
NOSE).VORHER WIRD DIE": :”MI 
TTIERE WACHSTUMSRATE,AUF“: : 

"GRUND DER EINGEGEBENEN WERT 
E“ 

1100 DISPLAY AT(13,1):“ANGEZ 
EIGT.JE MEHR WERTE EIN-": 
GEGEBEN WERDEN UM SO GENAUER 
" ; •: !i DIE PROGNOSE. 

>>>" 

1110 CALL KEY(0,KE,S):: IF S 
=0 THEN 1110 

1120 FOR 1=4 TO 23 CALL H 
CHAR(1,3,32,28):: NEXT I 
1130 DISPLAY AT(4,1):"NACH D 
ER AUSGABE DER PROG-": :"NOS 
E KANN DURCH DRUECKEN": :"EI 
NER TASTE DIE ERRECHNETEN": 

;"WERTE AUF EINER BALKEN-“ 
1140 DISPLAY AT(12,1):"GRAFI 
K AUSGEGEBEN WERDEN." 

1150 DISPLAY AT(22,26) : " >>> " 
1160 CALL KEY(0,KE.S):: IF S 
=0 TUEN 1160 
1170 SUBEND 


Fortsetzung von Seite 64 

960—1020 Unterpro¬ 
gramm Rahmen 
1030—1170 Unterpro¬ 
gramm Einleitung 

Anm. der Redaktion: Der 
Programmierstil deutet 
darauf hin, daß der Autor 
noch nicht allzulange im 


Besitz des Xbasic-Moduls 
ist. 

TI-Basic und Xbasic- 
Befehle sind bunt durch¬ 
einander gemischt. Durch 
eine korrekte Program¬ 
mierung in Xbasic wäre 

Bitte lesen Sie weiter auf Seite 69 
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10 

1 

> * t ** ****** * V. ****** *■> 

11 

1 


4 

12 

1 

•» WIDER STA ENDE 


13 

*' 

* 

* 

14 

1 

* Copyright by 

* 

15 

1 

* Rued? ger Hu-sy 

* 

16 

1 

•X 

* 

17 

1 

* 

* 

19 

1 

* Bc noe- 1 i gt *1 Ga: ae L £ 

* 

20 

1 

v T!P?/4A Konsole 

* 

21 

1 

*■ E 1 , b a o 3 0 

iß. 

22 

26 

1 

1 

* S r. >z- ich v r b c 1 e g u •*» g 

-V- 

27 

28 

1 

1 

* 3891 BvIs-e 


29 

30 

1 

1 

-• *< ■ K H ' XL ****** ■■ * 



290 ON BREAK NEXT :: ON WARN 
ING .NEXT 

300 CALL CL.EAR ; : CALL SCREE 
N (?) 

310 X=X41 :: CALL COLOR(X, 11 
IR Xsl 4 THEN 33.0 
320 GOTO 310 
330 CALL CLEAR 
340 PRINT " ...W I I? E R S T 

A N D." 

350 PRINT :: PRINT 

360 PRINT " 0...EY...R U E D 

I G E P --. 

..H U S S Y. . " 

370 PRINT .*: PRINT :: PRINT 

:: prjnt :: print "bitte tas¬ 
te DRUECKEN w 

380 PRINT :: PRINT :: PRINT 
:: PRINT :: print 
390 CALL KEY(0, K, 8) 

400 IF S=0 THEN 390 

410 ' 

510 ! 

520 CALL CLEAR 

530 PRINT "..M E N U E" 

540 Y=0 

550 print :: Y“Y+i :: if y=4 
THEN 570 
560 GOTO 550 

570 PRINT “0 FLfER PARALELLSC 
HALTUNG" :: PRINT :: PRINT " 

1 FUER WIDERSTAND >>>>>. 

..COBFARBE" :: PRINT 

580 PRINT "2 FUER CODFARBE.. 

>>>>>>>.WIDERSTAND" 

PRINT 

590 PRINT "3 ERRECHNEN VON S 
PANNIJNG" :: PRINT 
600 PRINT "4 ERRECHNEN VON S 
TROM" :: PRINT 

610 PRINT "5 ERRECHNEN VON U 

IDERST AND" :: PRINT 

620 PRINT " 6 PROGRAMME MDE" : 

; PRINT 


630 INPUT "IHRE WAHL? " ; A$ : 
: IF A&="1" THEN 1110 :; if* 
” 6 U THEN 950 :: IF 

THEN 2000 

640 IF A*="2" THEN 960 :: IF 
A*="5" THEN 740 :: IF 
" THEN 650 :: IF A$="3" THEN 
850 :: IF.>"6" THEN 520 
650 CALL CLEAR :: PRINT "ERR 
ECHNEN VON STROM" :: PRINT : 

: PRINT 

660 INPUT "SPANNUNG IN VOLT( 

v) ": u 

670 INPUT "WIDERSTAND IN OHM 
": R 

680 i- Li /p :: print :: print 
:: PRINT "ES FLIESSEN":I:"AH 
PERE(A)" 

690 PRINT :: PRINT PRINT 
:: INPUT "UMRECHNEN 114 m A 3/ 
N" : K* 

700 IF THEN 710. ; : if 

K*="N" THEN 720 
710 MA=I*!000 ;: PRINT "DAS 
SIND":MA: "MIEL T AMPERE" 

720 PRINT :: PRINT :: PRINT 
"TASTE DRUECKEN" 

730 CALL KEY(0,K,S)I: IF S~0 
then ?sci ;: goto 520 

740 CALL CLEAR :: PRINT :: P 
RINT :: PRINT "ERRECHNEN VO 
N WIDERSTAND " :: print :: P 
RINT 

750 INPUT "SPANNUNG (V) ";C 

760 INPUT "STROM (A) ":ER 
770 R=C/ER :: PRINT :: PRINT 
:: PRINT "ES SIND":RJ"OHM" 
780 PRINT :: PRINT :: PRINT 
:: INPUT "UMRECHNEN OHM IN K 
ILO OHM 3/N":L$ 

790 IF LS="J" THEN 810 :: IF 
L$="N" THEN 820 
800 ! 

810 KÜ=R/1000 .:: PRINT "DAS 
SIND":KO:"KILO OHM" 

820 PRINT PRINT :: PRINT 
"BITTE EINE TASTE DRUECKEN" 
830 CALL KEY(0,K,S):r IF S=0 
THEN 830 :: GOTO 520 

840 ! 

850 CALL CLEAR :: PRINT :: P 
RINT PRINT "ERRECHNEN VON 
SPANNUNG" PRINT :: PRINT 
860 INPUT "WIDERSTAND IN OHM 
":wI :: INPUT "STROM IN AMP 
ERE ":am 
870 REM 

880 ui=wi*am :: print :: pri 

NT :: PRINT "ES IST EINE SPA 
NNUNG VON":U3;"VOLT" 










890 print :: primt :: input 
"UMRECHNEN IN MV J/N ": VB$ 

900 IF VB$="3" THEN 920 :: I 
F VBS="N" THEN 930 
910 REM 

920 mv=ui * 10.00 :: print :: P 

RINT :: PRINT "DAS SIND":MV: 
"MILLI VOLT" 

930 PRINT :: PRINT :: PRINT 
"BITTE EINE TASTE DRUECKEN" 
940 CALL KEY (0, K, S) : : IF S-.0 
THEN 940 *.: GOTO 520 
950 END 

960 CALL CLEAR :: PRINT "COD 
FARBE > WIDERSTANDEN. " :: IN 
PUT "CODFARBEN: “:AX* :: PRI 
NT :: PRINT :: PRINT "DIE DR 
ITTE RINGFARBE SIND NULLEN" 
970 IF AX$="SCHWARZ" THEN 10 
20 :: IF AX<£="BRAUN" THEN 10 
70 :: IF AX*="ROT" THEN 
1060 :: IF AX*="ORANGE" THEN 
1050 :: IF AX$="GELB" THEN 
1010 

930 IF AX*fc="GR'UEN" THEN 1030 
:: IF AX*="BLAU" THEN 1020 
:: IF AX$="VIOLETT" THEN 101 
0 : : IF AKS“" GRAU" THEN 1000 
IF AX£="WEISS" THEN 990 
990 PRINT "9" GOTO 1090 
1000 PRINT "8" :: GOTO 1090 
1010 PRINT "7“ :: GOTO 1090 
1020 PRINT "6" :: GOTO 1090 
1030 PRINT "5" GOTO 1090 
1040 PRINT "4" :: GOTO 1090 
1050 PRINT "3" :: GOTO 1090 
1060 PRINT "2" :: GOTO 1090 

1070 PRINT "1" :: GOTO 1090 
1080 PRINT "0" :: GOTO 1090 

1090 print :: print :: input 

"NOCHMAL ? ":KL$ 

1100 IF KL*="J" THEN 960 :: 
IF KL$< >"1" THEN 520 
1110 CALL CLEAR :: PRINT "WI 
DERSTANDSW.>CÜDFARBE" :: PRI 
NT :: PRINT 

1120 PRINT :: PRINT "DER DRI 
TTE RINGWERT IST DIE ANZAHL 
DER NULLEN" PRINT :: PRIM 
T 

1130 PRINT :: PRIMT H EINGAB 
E DES RINGWERTES" :: INPUT A 
S* 

1140 IF AS$="0" THEN 1250 :: 

IF AS*="1" THEN 1240 :: IF 
AS*="2" THEN 1230 :: IF AS$= 
"3" THEN 1220 IF AS*="4" 
THEN 1210 :: IF A3*="5" THEN 
1 200 

1150 IF AS*="6" THEN 1190 :: 
IF AS*="7" THEN 1180 :: IF 


AS$="8" THEN 1170 IF AS$= 
"9" THEN 1160 • 

1160 PRINT “WEISS" 

1170 PRIMT "GRAU" :: GOTO 12 
60 

1180 PRIM! "VlQI£H" :: wü IO 
1260 


1 190 

PRINT 

"BLAU" :: 

GOTO 12 

60 

1200 

PRIMT 

"GRUEN" : 

: GOTO 1 

260 

1210 

PRINT 

"GELB" :: 

GOTO 12 

60 

1220 

PRINT 

"ORANGE" 

:: goto 

126.0 

1230 

PRINT 

"ROT" *.: 

GOTO 126 

0 

1240 

PRINT 

"BRAUN" : 

: GOTO 1 

260 

1250 

PRINT 

"SCHW." : 

: GOTO i 

260 

1260 

PR INI 

:: PRINT 

:: imput 


"NOCHEINMAL ?• "IBM* 

1270 19 BN$= !l J" THEN 1110 :: 

IF BN*<>"J" THEN 520 
2000 CALL CLEAR PRINT "ER 
RECHNEN DES ERSATZWIDER - ST 
ANDES VON PARALELLSCHALT- UN 
GEN" :: PRINT :: print 
2010 IMPUT "WIEVIELE WIDEPST 
AENDE SIND..PAPALELL? <2,3,4 
,5) ":KL> :: print :: PRINT 
2020 IF KL$="2" THEN 2.050 : : 

IF KL t= "3" THEN 2070 :: IF 
KL.*»"4"- THEN 2100 :: IF KL.$= 
"5" THEN 2200 i: IF KL*>"5" 
THEN 2010 :: IF KL*<"2" THEN 
2010 
2030 ! 

2040 ! 

2050 IMPUT "1.WERT ":Q :: IN 
PUT "2.WERT "IW 
2060 Z=(G*W)/(GH W):: PRIMT " 
DER ERSATZWERT IS'fSZ II PRI 
MT "OHM" :: FOR K=1 TO 50.0 : 

: next k :: goto 520 

2070 INPUT "WERT 1. "IV :: I 
NPUT "WERT 2. ":B :: INPUT " 

wert 3 . ":n :: M=<i/V)Mi/B> 
+ (1 / N):: 1.=1 / H 

2080 PRINT "DER ERSATZWERT I 

st ”:L :: print "OHM" :: pri 
nt :: PRINT :: print "bitte 
EINE TASTE DRUECKEN" 

2090 CALL KEY(0,K,S):: IF S= 
0 THEN 2090 :i GOTO 520 
2100 INPUT "WERT 1. ":S :: I 

NPUT "WERT 2. ":Z INPUT " 

wert 3. ":x :: input "wert 4 

. ": C 
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2110 N= < J/£)4(j/Z) + (J/X) + (1/ 

c>:: L=i/N 

2120 PRINT "DER ERSATZWERT I 

st ":l :: print h ohm m :: pri 
nt :: print :: print "bitte 

EINE TASTE DRUCKEN" 

2130 CALL KEY(0, K, S) 

2140 IF S=0 THEN 2130 
2150 GOTO 520 
2160 ' 

2190 | 

2200 INPUT "WERT 1, ":G :: I 
MPt'T "WERT 2. ":H INPLJ7 " 

WERT 3. :: INPUT "WERT 4 

. ":K :: input "WERT 5. ":L 
2210 u= (l/G) + (i/H) + •: 1 / J ) + «; i / 
KJ-s-U/(.):: A«l/U 
2220 PRINT "DEF ERSATZWERT I 
ST ":a :: print "ohm" :: pri 
N T : : pRIMT ;: p RI m "EIT TE 
EINE TASTE. DRUCKEN' 

2230 CALL KEY <0,K,3) 

2240 IF S=0 THEN 223.0 
2250 GOTO 520 


Fortsetzung von Seite 66 


das Programm wesentlich 
kürzer ausgefallen. 

Trotzdem haben wir 
uns aus zwei Gründen zu 
einem Abdruck entschlos¬ 
sen! 

Zum ersten fällt es auf¬ 
grund der vielen TI-Basic- 
Befehle nicht mehr allzu 
schwer, das Programm 
komplett in TI-Basic um- 
zusenreiben und zum an¬ 


deren bietet das vorlie¬ 
gende Programm doch 
eine beachtliche Hilfestel¬ 
lung beim Errechnen der 
benötigten Werte. Die 
Formeln und Ergebnisse 
wurden von uns überprüft 
und können unbedenk¬ 
lich übernommen werden. 

Alle Angaben sind kor¬ 
rekt. 

H. König 



10 REH^******************* 

11 REM* * 

12 REM* SPACE INWADERS * 

13 REM* Copyright by -* 

14 REM* Sascha Dierkes ■* 

15 REM* * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung -* 

24 REM* 5139 Bytes ■* 

25 REM****-*-*-*-**-*-**-*-**-****^- 

26 REM 

180 RANDOMIZE 

190 RESTORE 

200 CALL CLEAR 

210 PRINT "*SPACE INWADERS-*" 

: :"SCHIESSEN SIE SO WIELE.. 

....BOMBEN WIE MOEGLICH AB.. 

....DESTO EHER SIE DIESE" 

220 PRINT "TREFFEN DESTO M 

EHR.PUNKTE GIBT ES.": 

:"BERUEHREN DIE BOMBEN JEDO 
CH DEN BODEN HABEN SIE EINE. 
..STATION WERLOREN" 

230 PRINT "UNTEN WERDEN DIE 
ANZAHL DER .RESTLICHEN STATIO 
NEN SOWIE..IHRE PUNKTE UND A 
NGRIFFS-...WELLE DER INW."J 
240 PRINT " ANGEZEIGT." 

250 CALL KEY(0,K,S) 

260 IF S=0 THEN 250 

270 CALL CLEAR 

280 PRINT "JOYSTICK WERSION" 

290 INPUT "ANZAHL DER ANGREI 
FER PRO W. (2-10)":ANZ 
300 IF <ANZ<2)+(ANZ>10)+(ANZ 
OINT(ANZ) ) THEN 290 * 

310 CALL CLEAR 

320 FOR 1=3 TO 4 

330 CALL COLOR(1,4,2) 

340 NEXT I 

350 FOR 1=10 TO 13 

360 CALL COLOR(1,1,1) 

370 NEXT I 

380 CALL COLOR(2,1,1) 

390 FOR 1=1 TO 50 
400 ZE=INT(RND*9)+1 
410 SP=INT(RND*30)+1 
420 CALL HCHAR(ZE,SP,46,1) 

430 NEXT I 

440 CALL CHAR(124,"0103070F1 
F3F7FFF") 

450 CALL CHAR(125,"80C0E0F0F 
8FCFEFF") 

460 CALL CHAR(111,"182442818 
1422418") 

470 CALL CHAR(118,"1818183C3 
C3C7E7E■) 

480 CALL CHAR(119,"7E7E7E7E7 



E7E7EFF") 

490 CALL CHAR(126,"FFFEFCF8F 
0E0C080") • 

500 CALL CHAR(123,"FF7F3F1F0 
F070301”) 

510 CALL CHAR<122,"FFFFFFFFF 
FFFFFFF") 

520 FOR 1=1 TO 22 
530 READ ZE,SP,CH,WH 
540 CALL HCHAR(ZE,SP,CH,WH) 
550 NEXT I 

560 DATA 1,13,111,1,1,16,111 
,1,2,13,118,1,2,16,118,1,3,1 
1,124,1,3,13,119,1,3,16,119, 

1.3.18.125.1 

570 DATA 4,12,122,6 

580 DATA 5,12,126,1,5,14,123 

,1,5,15,126,1,5,17,123,1,6,1 

2,125,1,6,14,124,1,6,15,125, 

1.6.17.124.1 

590 DATA 7,12,122,6 

600 DATA 8,11,123,1,8,14,123 

,1,8,15,126,1,8,18,126,1 

610 XSCH=11 

620 SPIEL=0 

630 RSCH=5 

640 POS1=15 

650 CALL SCREEN <2) 

660 CALL COLOR(2,12,2) 

670 CALL CHAR (100,"183C7EFFF 
FOOOOFF" ) 

680 CALL CHAR(128,"001818181 
8181800") 

690 CALL CHAR(129,"181818181 
8187EFF") 

700 CALL CHAR(136,"8181423C3 
C3C3C18") 

710 CALL CHAR (137,"2424A57E5 
A5A7E99") 

720 CALL C0L0R(13,12,2) 

730 CALL C0L0R(14,11,2) 

740 CALL C0L0R(9,14,2) 

750 CALL COLORdO, 10,2) 

760 CALL COLOR(11,7,2) 

770 CALL COLOR(12,6,2) 

780 CALL HCHAR<21,1,100,30) 
790 CALL HCHAR<20,P0S1,129) 
800 CALL HCHAR <22,5,RSCH + 48) 
810 FOR SCH=9 TO 1 STEP -1 
820 CALL HCHAR < 22,27,SCH+48) 
830 SPIEL=SPIEL+1 
840 HPOS=XSCH 

850 HP0S2=INT(RND*<2*SCH+XSC 
H-4))+1 

860 CALL HCHAR(HPOS-1,HP0S2, 
137) 

870 CALL HCHAR < HPOS,HP0S2,13 
6 ) 

880 HPOS=HPOS+1 

890 IF HP0S=20 THEN 1460 


900 FOR 1=1 TO SCH 
910 CALL KEY <1,K,S) 

920 CALL JGYST(1,X,Y) 

930 IF <S=0)*<X=0)THEN 970 
940 GOTO 1200 

950 CALL HCHAR(20,P0S1,129) 
960 CALL SOUND(-50,440,5) 

970 NEXT I 

980 CALL HCHAR(HPOS-1,HP0S2, 
127) 

990 GOTO 870 

1000 IF SPIEL/ANZ<>INT(SPIEL 
/ANZ)THEN 830 
1010 NEXT SCH 
1020 RSCH=RSCH+XSCH-10 
1030 IF RSCH<10 THEN 1050 
1040 RSCH=9 
1050 XSCH=XSCH+1 
1060 CALL HCHAR<22,5,RSCH+48 
) 

1070 PUNKT = PUNKT +100-&XSCH 
1080 CALL SOUND(300,524,1) 
1090 CALL SOUND(300,588,1) 
1100 CALL SOUND(600,660,1) 
1110 PUNKT=PUNKT + 100-fcXSCH 
1120 CALL SOUND(225,698,3,88 
0 , 1) 

1130 CALL SOUND(75,784,1) 

1140 CALL SOUND(150,880,1) 
1150 CALL SOUND(150,988,2,78 
2 ,1) 

1160 CALL SOUND(300,1046,5,7 
82,4,658,0) 

1170 IF XSCH >16 THEN 1690 
1180 CALL COLOR(14,XSCH,2) 
1190 GOTO 810 
1200 IF XO-4 THEN 1250 
1210 IF P0S1-1<1 THEN 1240 
1220 CALL HCHAR(20,P0S1,127) 
1230 P0S1=P0S1-1 
- 1240 GOTO 950 
1250 IF X< >4 THEN 1300 
1260 IF P0S1+1>30 THEN 1290 
1270 CALL HCHAR(20,POS1,127) 
1280 P03i=P0Si+1 
1290 GOTO 950 
1300 IF KO 13 THEN 970 
1310 FOR J=19 TO HPOS STEP - 
1 

1320 CALL HCHAR(J,P0S1,128) 
1330 NEXT J 

1340 IF HP0S2OP0S1 THEN 143 
0 

1350 CALL SOUND(-200,1200,0) 
1360 PUNKT=PUNKT +(21-HPOS)%( 
11-SCH) 

1370 HILF$=STR$(PUNKT) 

1380 FOR J=1 TO LEN(HILF$) 
1390 CALL HCHAR(22,15+J,ASC( 
SEG$(HILF$,J,1))) 

1400 NEXT J 


70 














1410 CALL VCHAR(10,P0S1,127. 
10 ) 

1420 GOTO 1000 

1430 CALL VCHAR(HPOS,P0S1,12 
7,20-HPOS) 

1440 CALL SOUND(-200,-2,0) 
1450 GOTO 950 
1460 RS'CH=RSCH-1 
1470 CALL SCREEN <10) 

1480 CALL S0UND(-1000,-6,0) 
1490 CALL HCHAR(10,1,127,352 
) 

1500 CALL SCREEN(2) 

1510 IF RSCH<0 THEN 1550 
1520 CALL HCHAR(22,5,RSCH+48 
) 

1530 CALL HCHAR(20,P0S1,129) 

1540 GOTO 1000 

1550 CALL CLEAR 

1560 FÜR 1=5 TO 8 

1570 CALL COLOR(I,16,2) 

1580 NEXT I 

1590 PRINT "SIE HABEN LEIDER 
VERLOREN":"ABER PROBIEREN S 
IE ES DOCH RUHIG NOCH EINMA 
L. " 

1600 PRINT "SIE HATTEN " ; PUN 
KT?" PUNKTE":"UND HATTEN SCH 
WIERIGKEITS- GRAD :";SCH 
1610 PRINT "IN STUFE: " ,’XSCH- 
11 

1620 PRINT "NOCHMAL?" 

1630 CALL KEY(0,K,S) 

1640 IF S=0 THEN 1630 

1650 IF K< >74 THEN 1670 

1660 GOTO 100 

1670 IF K< >78 THEN 1630 

1680 END 

1690 CALL CLEAR 

1700 FOR 1=1 TO 14 

1710 CALL COLOR(1,2,16) 

1720 NEXT I 

1730 CALL’SCREEN(16) 

1740 PRINT "BRAVO!!": :"ABSO 
LUTE SPITZENKLASSE" 

1750 PRINT "PUNKTE:";PUNKT:" 
SIE HABEN ES BIS ZUM LETZTEN 
SCHWIERIGKEITSGRAD DURCHGE¬ 
HALTEN! " 

1760 PRINT "NOCHMAL?" 

1770 CALL KEY(0,K,S) 

1780 IF S=0 THEN 1770 
1790 IF K=74 THEN 100 
1800 IF K< >78 THEN 1770 
1810 END _ 

Die nächste 
TI REVUE erscheint 
am 28. Oktober 
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100 CALL CLEAR ;: CALL SCREE 
N (2) 

110 DISPLAY AT(1,1):"******* 
********************** :: D 

ISPLAY AT<2,1):"*" :: DISPLA 
Y AI(2,28):"*" 

120 DISPLAY AT(3,1):"* . 

.LESEPROGRAMM.*" :: DI 

splay AT(4,i):"*" :: Display 
AT (4,28):"*" 

130 DISPLAY AT(5,1):"*...FUE 
R DFUE-TEXTE VON_*" :: DI 

splay at (6, l): "*•' :: Display 

AT(6,28):"*" 

140 DISPLAY AT(7,1):"* . 

. ’ DISKETTEN’.. .*" ;; DI 

splay at( 8,l):"*" Display 
AT (8,28)I"*" 

150 DISPLAY AT(9,1):"* . 

. . IM FORMAT.*" : : DI 

splay at( 10 ,l):"* M :: displa 
y at( 10 , 28 ):"*" :: Display a 
T(11,1): H * DISPLAY/VARIABLE 
80/128 *" :: DISPLAY AT<11, 
28):"*" 

160 DISPLAY AT(12,1):"*" :: 
DISPLAY AT (12,23) : "*"' :: DIS 
PLAY AT(13,1):"*" :: DISPLAY 

at( 13,28): u *" :: Display at 
(14,1):"*" :: Display at(14, 
28): "*•• 

170 DISPLAY AT(15,i):"* . 

. . .VERSION 1.2.*•* : : D 

ISPLAY AT(16,1):"*» :: DISPL 
AY AT(16,28):"*" :: DISPLAY 
AT <17,1): "****************** 
**********" 

180 CALL SCREEN(4):: FOR 1=1 
TO 750 :: NEXT I 
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190 •-- 

200. ! ROUTINE ZUM AUSDRUCKEN 
DER DFUE-PROTOKOLLE" 
VON DISKETTEN 
210 ! LITERATUR: 

TI REVUE 2/84, S .44 
220 ! CR BY DIETER ORTH 

HARTGERSTR. 12 
33 BRAUNSCHWEIG 

230 -- 

MENUE 


240 CALL CLEAR :: DISPLAY AT 
(2,4):“<GERAETE.DATEINAMEN>" 

250 !- 

260 DISPLAY AT(4,4):"===>" : 

! ACCEPT AT(4,8)SIZE(15)VALI 
DATE(UALPHA,DIGIT, M ./-_"):FI 
LE« :: IF FILE«="" THEN 260 

270 !-- 

280 DISPLAY AT(7,4):"<TERMIN 
AL-EMULATOR >" :: DISPLAY AT( 


290 DISPLAY AT(9,4):"TE II 
a<1>" :: DISPLAY AT(10,17): 

"> <" :: DISPLAY AT (11,4) S"T 
E 1200 = < 2 >" :: ACCEPT AT(10 
,18)SIZE(1)VALIDATE("12"): T« 
300 IF T«="" THEN 290 :: IF 
T«=" 1" THEN 320 IF T«="2" 
THEN 330 ELSE 290 
310 DISPLAY AT(24,1):FILE« 
320 OPEN #11 FILE«,INPUT ,DIS 
PLAY »VARIABLE 80 :: GOTO 34 
0 

330 OPEN #1SFILE«,INPUT ,DIS 
PLAY ,VARIABLE 128 
340 DISPLAY AT (14,4) :"DRUCKE 
R J/N > <" :: ACCEPT AT (14, 
18) SIZE( 1 )VALIDATE( " JN "):C« 
350 IF C«= Mn THEN 340 :: IF 
C$=“J" THEN 380 :: IF C«=“N" 
THEN 500 

360 DISPLAY AT (24,1 ):FILE« 

370 !--- 

DRUCKER-AUSGABE 


380 DISPLAY AT(17,4):"RS232. 
...<1>" :: DISPLAY AT(18,17) 
:-> <- :: Display at<19,4>:" 
SELEKTIV <2>" :: ACCEPT AT(1 
8,18)SIZE(1)VALIDATE("12"):D 
« 

390 IF D«="" THEN 380 :: IF 
D«="l" THEN 400 :: IF D$="2" 
THEN 420 

400 OPEN #2:"RS232.BA=9600.D 
A=8.PA=E",OUTPUT,DISPLAY :: 
GOTO .450 

410 !--- 


420 DISPLAY AT(21,4):"DRUCKE 
rname:" :: accept at(22,4)si 
ZE( 28)VALIDATE(UALPHA,DIGIT, 
".*,"):P« :: IF p«="" then 4 
20 

430 OPEN # 2 :P$,OUTPUT,DISPLA 
Y 

440 «- 

450 LINPUT #1:A« 

460 IF EOF(1)THEN 570 
470 PRINT #2:A« 

480 GOTO 450 

490 !- 

BILDSCHIRM-AUSGABE 


500 CALL CLEAR :: DISPLAY AT 
(21,1):"BITTE DIE SPACE - TA 
STE.BENUTZEN!" :: FOR 1 = 

1 TO 750 : : next .1 :: call c 

LEAR 

510 LINPUT #i:A« 

520 IF EOF(1)THEN 570 
530 PRINT A« :: FOR 1=0 TO 1 
540 CALL KEY(0,K,S):: IF S=0 
THEN 540 :: IF K=32 THEN 55 
0 :: GOTO 540 

550 NEXT I :: GOTO 510 

560 !--- 

MENUE 


570 DISPLAY AT (24, 4):"WEITER 
...J/N > <" i: ACCEPT AT(24, 
18)SIZE(1)VALIDATE("JM"):S« 
:: IF S«="" THEN 570 :: IF S 
«="J" THEN RUN 240 IJ IF S«= 
"N" THEN 580 

580 RUN "DSK1.LOAD" :: REM-- 

->RUN "DSK1.MENUE" 

590 END 



Mehr Geld verdienen ... 

Wenn Sie den Wunsch zu selbständiger 
Arbeit haben und gut verdienen wollen - 

HIER IST DIE LÖSUNG: 

Werden Sie Partner von Michael Meister, 
EDV-Marketing 

Rheinstr.47,7500Karlsruhe 21, Auftrags¬ 
dienst Frau Staack, Tel. 07 21/554601 

Keine Broschüren, keine Konzepte — sondern reelle Chan¬ 
cen — geringes Startkapital erforderlich, ab DM 100,—. 
Technisches Interesse und kaufmännische Kenntnisse von 
Vorteil! Bitte benutzen Sie die Kontaktkarte und fügen Sie 
einen V-Scheck von DM 5,— bei! (Schutzgebühr) 


72 



























I 


NUTZEM SIE 





KOMMT REGELMÄSSIG 

ZU IHNEN! Finden Sie ,hre Tl REVUE nicht am Kiosk? 

iBiiibn Weil sie schon ausverkauft ist? Oder „Euer" 
|iy§f? U AIIC Kiosk nicht be ^efert wurde? Kein Problem! Für 

ganze 30 DM liefern wir Euch per Post sechs 
Hefte ins Haus (Ausland 40 DM). Einfach den 
Bestellschein auf der nächsten Seite ausschneiden 
- fotokopieren oder abschreiben, in einen Brief¬ 
umschlag und ab per Post (Achtung: Porto nicht 
vergessen). TI REVUE kommt dann pünktlich 
ins Haus. 



WICHTIGE RECHTLICHE 
GARANTIE! 

Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den 


Verlag widerrufen- Postkarte ge¬ 
nügt. Ansonsten läuft dieser Auf¬ 
trag jeweils für sechs Ausgaben, 
wenn ihm nicht vier Wochen 
vor Ablauf widersprochen wird, 
weiter. 



PRIVATE 

KLEINANZEIGEN 

KOSTENLOS! 


Das bietet Ihnen ab sofort die Tl-Revue: KLEIN¬ 
ANZEIGEN SIND KOSTENLOS FÜR PRIVATAN¬ 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver¬ 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief¬ 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele¬ 
fonnummer sollten acht Zeilen a 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In¬ 
serenten, keine gewerblichen Anzeigen. Die kosten 
pro Millimeter DM 2,50 plus Mehrwertsteuer! 


Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes ab¬ 
hängig! 

Wir behalten uns vor, Anzeigen, die nicht zum The¬ 
menkreis des Heftes — Computer — gehören, nicht ab¬ 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeitenteils zu¬ 
läßt. 
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KASSETTEN 


Selbstverständlich gibt es in diesem Heft wieder 
einen Kassetten-Service. Dabei können wir Ihnen 
allerdings die Qual der Wahl nicht ersparen. 
Denn: In Ihrem Interesse haben wir dieses Spe¬ 
cial sozusagen „geviertelt". 

Viertel 1: Alle Utilities Und Anwender-Program¬ 
me in TI Basic 

Viertel 2: Alle Spiele in TI Basic 

Viertel 3: Alle Utilities/Anwenderprogramme in 

Extended Basic 

Viertel 4: Alle Spiele in Extended Basic. 

Und weil es uns Spaß macht, haben wir noch ein 
fünftes Viertel angehängt: den Disketten-Service. 
Da sind dann allerdings alle Programme drauf. 
Und nun zu den harten, nackten Geschäftsbe¬ 
dingungen. 

Sie können zahlen: 

Gegen Bankabbuchung am Versandtag 
Gegen Vorausrechnung, wobei am Tag des Geld¬ 
einganges der Versand erfolgt: 

Sie können kombinieren: 

Jedwedes Programmpaket miteinander - etwa 
1 + 4 oder 1,2,3 oder nur 4 und so weiter. 






Coupon 

Ja, ich möchte von Ihrem Angebot 
Gebrauch machen. 


Bitte senden Sie mir bis auf Wider¬ 
ruf ab sofort jeweils die nächsten 
sechs Ausgaben an untenstehende 
Anschrift. 



Ich nehme zur Kenntnis, 
daß die Belieferung 
erst beginnt, wenn die Abo- 
x Gebühr dem Verlag 
zugegangen ist 


TI REVUE 

Abo-Service SP2 
Postfach 1107 

8044 UNTERSCHLEISSHEIM 


Name_ 

Vorname- 

Straße/Hausnr. 
Plz/Ort_ 


Ich bezahle: 

□ per beiliegendem Verrechnungsscheck 

□ gegen Rechnung 

□ bargeldlos per Bankeinzug von meinem Konto 


bei (Bank) und Ort--—- 

Kontonummer- 

Bankleitzahl --- 

(steht auf jedem Kontoauszug) 
Unterschrift___ 


Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 


Unterschrift 
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SERVICE 


Das sind die Preise: Pro einzelnes Programm- 
Paket DM 20,— 

Für zwei Programmpakete DM 35,— (5,— DM 
Ersparnis) 

Für drei Programmpakete DM 50,— (10,— DM 
Ersparnis) 

Für alle vier Programmpakete DM 60,— (20,— DM 
Ersparnis) 

(Jedes Programmpaket auf Kassette!) 

Für die komplette Diskette - alle vier Programm- 
Pakete — DM 75,— (hier ist keine Zusammenstel¬ 
lung möglich!) 

Die Inhalte der einzelnen Programm-Pakete 
ersehen Sie aus nachfolgender Übersicht, die 
Komplett-Diskette enthält alle vier Programm- 
Pakete! 

ACHTUNG: KEIN GELD EINSENDEN! NUR 
DEN BERECHTIGUNGSCOUPON! WIR MEL¬ 
DEN UNS, WENN DIE WARE VERSAND¬ 
BEREIT IST!!! SELBSTVERSTÄNDLICH 
VOLLES UMTAUSCHRECHT BEI NICHT- 
FUNKTIONIEREN. 


Programm-Paket 1: 

Alle Spiele in Tl-Basic 

wie Erdbeer-Paul, Apfelfänger, Seeschlacht, 
Space Invaders, Castle of Dom, Catch with Car, 
Sky-Driver, Tl-Mühle, Irvel. 

Programmpaket 2: 

Alle Spiele in Ext.-Basic 

wie Space 2000, Tore schießen, TI-Fall, Spick¬ 
zettel, Adventage, Ecarte, Boogabo. 

Programmpaket 3: 

Alle Anwenderprogramme, Utilities usw. in 
Basic 

wie Dreiecks- und Kreisberechnung, Komposi¬ 
tionen, Dissassembler, Copyright-Zeichen. 

Programmpaket 4: 

Alle Anwenderprogramme, Utilities usw. in Ext. 
Basic wie Hexdump, Supergrafik, Toch Typing, 
Sprite-Set DFÜ, Tabellen-Erstellung, Steuerbe¬ 
rechnung, Prognose, Karnoug Veitch, Reset, 
3x3-Matrix, Softplot oder Pokelisten. 

ACHTUNG! Wir weisen ausdrücklich darauf hin, 
daß das Spiel „Irvel" wegen Überlänge nur in der 
Ursprungsversion des Autors kopiert wurde. 
Eventuell müssen Sie daher dieses Programm 
gemäß unserem Listing überprüfen. 



Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen 
Programmsammlung 1 ( ) Programmsammlung 2 ( ) 

Programmsammlung 3 ( ) Programmsammlung 4 ( ) 

die Komplett-Diskette ( ) 

Zutreffendes bitte ankreuzen! 

Ich zahle: 

Gegen Vorausrechnung ( ) - Versand am Tag des Geldeinganges 

Gegen Bankabbuchung am Versandtag ( ) 

Meine Bank (mit Ortsname). 

Meine Kontonummer.. .... 


Meine Bankleitzahl ... (steht auf jedem Bankauszug) 

Vorname.Nachname. 

Str./Nr. PLZ/Ort . 


Hiermit bestätigen ich mit meiner Unterschrift, Ihre Verkaufsbedingungen 
gelesen zu haben und zu akzeptieren. 

Unterschrift. 

Bitte ausschneiden und einsenden an 
TI-SPECIAL 2 
KASSETTENSERVICE 
Postfach 1107 
8044 Unterschleißheim 
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Die deutsche 



Das große 
Drucker-Special 

IM TEST: 

16 Drucker von 
Philips über 
Mannesmann 
Comdata, 


Honeywell, 

Juki, 

Microscan und 
Sharp bis 
Sony 

MÄRKTÜBER- 

SICHT: 

Alle Drucker 
Printer/Plotter 
Von Thermo 

bis Typenrad 


Nr. 9/10 Sept /Okt - DM 9,80/ÖS 80 /SFR 9,80 B 20131 F 


GEWINNEN 

SIE EINEN 




COMPUTER 


Alles, was Sie über Drucker wissen wollen 


IS AKTUELL 

COMPUTER¬ 

MAGAZIN 



DAS BLATT, 

DAS KEINS 
VOR DEN 
MUND NIMMT 

JETZT AN 

IHREM KIOSK 




10 ! 

********************** 

11 ! 

* 


* 

12 ! 

* 

KARNOUGH-VEITCH 

* 

13 ! 

* 

DIAGRAMM 

* 

14 ! 

* 

Copyright by 

* 

15 ! 

* 


* 

16 ! 

* 

Bernard Schmidt 

* 

17 ! 

* 


* 

19 ! 

* Benoetigte Geraete 

* 

20 ! 

* 

TI99/4A Konsole 

* 

21 ! 

* 

Ext. Basic 

* 

22 ! 

* 


* 

26 ! 

* 

Speicherbelegung 

* 

27 ! 

* 

11702 Bytes 

* 

28 ! 

* 


* 

29 ! 

* ** * **■ ** ¥-**** ** *#*-**■) 


30 ! 




260 

CALL 

CLEAR 


270 

DIM 

C(16),RS<82) 


280 

j 



290 

i 

ICHENDEFINITIONEN 


300 

DATA 

"7C000038447C4444" 


"7C00007824382478","7C00003C 
4040403C",“7000007824242478" 
310 DATA "0101010101010101", 

" 00000000000000 FF ","01010101 
010101FF“,"FF00000000000000" 

,"8080808080803080" 

320 RESTORF. 300 :: FOR 1 = 1 T 
0 4 :: READ AS :: CALL CHAR( 
.100+1, AS) :: NEXT I 
330 RESTORE 310 :: FOR 1=1 T 

os:: read AS :: cai_l char( 

32+I,AS):: NEXT I 

340 ! 

350 !DATEN FUER WAHRHEITSTAB 
ELLE 

360 !FUER 0 

370 DATA 5,5,5,7,5,9,5,11,6, 
5,6,7,6,9,7., 5,7,7,7, 11,8,5,3 
,7,9,5,9,9,9,11 
380 DATA 10,5,10,9,11,5,11,1 
1,12,5,13, '7,13,9,13,11,14,7, 
14,9,15,7,15,1I,16,7,17,9,17 
ü 

390 DATA 18,9,19,11 
400 !FUER 1 

410 DATA 6,11,7,9,8,9,8, 11,9 
,7,10.7,10,11,11,7,11,9,12,7 
,12,9,12,11,13,5,14,5,14,11 
420 DATA 15,5,15,9,16,5,16,9 
,16,11,17,5,17,7,18,5,18,7,1 
8, 11, 19,5,1-9,7, 19,9,20,5,20, 
7,20,9,20,11 
430 ! 

440 !ERGEBNISDATEM 

450 DATA 0, l,F,d,b,e,c,a,h,g 

,eF,ed, eb-, eh,fc,cd,bc,ch,af, 

ad,ab,ah,Fg,gd,bg,gh,eg 

460 DATA ec , ac, ag,-f h, Fd , bd, b 

h, eFg, egd , ebg, e-fc , ecd , ebc , aF 


c, acd , abc, aFg,agd,abg,egh 

470 DATA ech,ach,agh,eFh,eFd 
,ebd,ebh,Feh,Fcd,bcd,bch,aFh 
,aFd,abd,abh,Fgh,Fgd,bgd,bgh 

480 DATA eFgh,eFgd,eFch,eFcd 
,ebgh,ebgd,ebch,ebed,aFgh, aF 
gd,aFch,aFcd,abgh,abgd,abch, 
abcd 

490 !DARSTELLUNG WAHRHEITSTA 
BELLE 

500 AS="WAHRHEITSTABELLE" :: 
F0R^I=1 TO 16 :: CALL HCHAR 
(1,2+1,ASC(SEGS(AS,1,1))):: 
NEXT I 

510 FOR 1=4 TO 12 STEP 2 :: 
CALL HCHAR(4.I,35):: CALL HC 
HAR(3,1,33):: NEXT I 
520 FOR 1=3 TO 13 STEP 2 :: 
CALL HCHAR(4,1,34):: NEXT I 
530 FOR 1=4 TO 12 STEP 2 :: 
FOR J=5 TO 20 :: CALL HCHAR( 
j,I,33):: NEXT J :: next i 
540 FOR 1=1 TO 4 :: J=2*I+3 
:: CALL HCHAR(3,J,96+1)I: NE 
XT I 

550 CALL HCHAR(3,13,65) 

560 FOR 1=1 TO 10 :: CALL HC 
HAR(4+1,3,47+1):: NEXT I 
570 FOR 1=1 TO 6 :: CALL HCH 
AR(14+1,2,49):: CALL HCHAR(1 
4+ 1,3,47 + 1) : : NEXT I 
580 RESTORE 370 :: FOR 1=1 T 
0 32 :: READ A,B :: CALL HCH 
AR(A,B,48):: NEXT I 
590 RESTORE 410 :: FOR 1=1 T 
0 32 I: READ A,B :: CALL HCH 
AR(A,3,49):: NEXT I ' 

600 AS="KORREKTUR ->K" :: F 
OR 1=1 TO 14 :: CALL HCHAR<3 
,17+1,ASC(SEGS(AS,I,1))):: N 
EXT I , 

610 AS="1=HIGH". :: FOR 1 = 1 T 
0 6:: CALL HCHAR <6,17+1,ASC 
(SEGS(AS,I,1))):: NEXT I 
620 AS="0=LOW" :: FOR 1=1 TO 
5 :: CALL HCHAR(8,17+1,ASC< 
SEG£(AS,1,1))):: NEXT I 
630 AS="X=DON’T CARE" :: FOR 
1 = 1 TO 12 :: CALL HCHAR <10, 
17+1,ASC(SEGS<AS,1,1))):: NE 
XT I 

640 AS*"BITTE A EINGEBEN 
:: FOR 1=1 to 18 :: call HCH 
AR(22,3+1,ASC(SEGS<AS,I,1))) 
:: NEXT I 
650 ! 

660 !WERTE FUER A EINGEBEN 
670 FOR 1=0 TO 15 
680 CALL KEY(0,K,S):: IF S<= 
0 THEN 680 :: IF K=48 OR K=4 
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i 



9 OR K-88 THEN 690 ELSE IF K 
=75 THEN 700 ELSE 680 
690 CALL HCHAR(5+1,13,K):: 6 
OTO 710 

700 IF 1=0 THEN GOTO 680 ELS 
E 1=1-1 :: GOTO 680 
710 NEXT I 

720 CALL HCHAR (22,3 , 32,19):: 

CALL HCHAR(3,17,32^15)52 FO 
R 1=1 TO 5 STEP 2 :: CALL HC 
HAR(5+1,17,32,13):: NEXT I 
730 ! • 

740 !KV-DIA6RAMM ERSTELLEN 
750 A$="KV-DIAGRAMM" :: FOR 
I=? TO 11 :: CALL HCHAR(3,17 
+1,ASC(SEG*(A$,1,1))):: NEXT 
I 

760 CALL HCHAR(7,20,34,4):: 
CALL VCHAR(S,19,33,4': : CALL 
VCHAR(8,24,37,4): : CALL HCH 
AR(12,20.36,4) 

770 CALL HCHAR(6,21,36,2):: 
CALL HCHAR(5,21,100):: CALL 
VCHAR(9,25,33,2):: CALL VCHA 
R(9,26,99) 

780 CALL VCHAR(10,18,37,2):: 
CALL VCHAR(10,17,97):: CALL 
HCHAR(13,22,34,2):: CALL HC 
HAR(14,22,98) 

790 FOR 1=0 TO 15 :: CALL GC 
HAR(5+1,13,C(I)):: NEXT I 
800 CALL HCHAR(8,20,C(0)):: 
CALL HCHAR (8,21,Cd)):: CALL 
HCHAR(9,20,C(2)):: CALL HCH 
AR(9,21,C(3)) 

810 CALL HCHAR(8,23,C (4) ) : : 
CALL HCHAR(8,22,C(5))2 2 CALL 
HCHAR(9,23,C(6))I: CALL HCH 
AR(9,22,C(7)) 

820 CALL HCHAR(11,20,C(8)):: 

CALL HCHAR(11,21,C(9)):: CA 
LL HCHAR(10,20,C(10)):: CALL 
HCHAR(10,21,C(11)) 

830 CALL HCHAR *( 11,23, C (12) ) : 

: CALL HCHAR(11,22,C <13)):I 
CALL HCHAR(10,23,C(14)):: CA 
LL HCHAR(10,22,C(15)) 

840 ! 

850 !AUSWERTUNG 

860 FOR 1=0 TO 15 :: C(I)=C( 

I)“48 :: NEXT I 
870 RESTORE 450 
880 FOR 1=0 TO 81 :: READ R$ 

(I):: next i :: erg$="" 

890 ! 

900 !16er BLOCK 

910 A=0 :: FOR 1=0 TO 15 :: 

A=A+c(i):: NEXT i 

920 IF A=0 THEN ERG$=RS(0)EL 

SE 930 :: GOTO 2350 

930 FOR 1=0 TO 15 :: IF C(I) 


=0 THEN 960 

940 NEXT I :: ERG$=R$(1):: G 
OTO 2350 

950 ! 

960 »8er BLOCK 

970 IF C(0)>=1 AND C(1)>=1 A 
ND C(2)>=1 AND C(3)>=i AND C 

(10) >=1 AND C(11)>=1 AND C(8 
) > = 1 AND C (9) > = 1 THEN ERG$=E 
RG$fccR$ (2 ) 6c" + " ELSE 990 

980 FOR 1=0 TO 3 :: FOR J=8 
to ii :: C(I),C(J)=0 :: next 
J :: next I 

990 IF C(1)> = 1 AND C: (5 ) > = 1 A 
ND C(3) > = 1 AND C (7)> = 1 AND C 

(11) > = 1 AND C(15)> = 1 AND C(9 
)> = 1 AND C(13)> = 1 THEN ERG$= 
ERG£t:R$ (3) Ee" + " ELSE 1010 
1000 C(1),C(5),C(3),C(?),C(1 
1) .C(15) , C (9 ) ,C (13)=0 

1010 IF C(5) >=1 AND C(7)> =1 
AND C(15) > =1 AND C(J3'>=1 AN 
D C (4) >=1 AND C(6) >=1 AND C( 

14) >=1 AND C (12)> = 1 THEN ERG 
$=ERG$LR$(4)L"+" ELSE 1030 
1020 C(5),C(?),C(15),C(13),C 
(4),C(6),C(14),C(12)=0 

1030 IF C(0)>=1 AND C(l)>=1 
AND C (2 )>=1 AND C(3)>=1 AND 
C(5) > = 1 AND C(6) >=1 AND C(7) 
>=1 AND C (4 ) > = 1 THEN ERG$=EF: 
G$L'R$ (5 )&'" + ,: ELSE 1050 
1040 FÜR 1=0 TO 3 :: FOR J=4 
to 7 :: Cd),C(j)=0 :: next 
J :: NEXT I 

1050 IF C(2)> = 1 AND C(3)> = 1 
AND C(7)>=1 AND C(6)>=1 AND 
C(10)> = 1 AND C(11> >—1 AND C( 

15) > = 1 AND C (14)> = 1 THEN ERG 
$=ERG$kR$ (6) &.'*' + " ELSE 1070 
1060 C<2),C'3),C<7),C<6),C<1 
0) ,C(11),C(15),C(14)=0 

1070 IF C(8)>=1 AND C(9)>=1 
AND C(10)>=1 AND C(11)>=1 AN 
D C(12)> = 1 AND C(13)> = 1 AND 
C(14)>=1 AND C(15)>=1 THEN E 
RG$=ERG£&R$(7)L"+" ELSE 1090 
1080 FOR 1=8 TO 15 :: C <I)=0 

:: next I 

1090 IF C(0)>=1 AND C(2)>=1 
AND C(4)>=1 AND C(6)>=1 AND 
C(8)>=1 AND C(10)>=1 AND C(1 
2)>=1 AND C (14)> = 1 THEN ER6$ 
=ERG$&R$(8)k u +" ELSE 1110 
1100 FOR 1=0 TO 14 STEP 2 :: 

C(I)=0 :: next i 
1110 IF C(0)> = 1 AND C(1)> =1 
AND C(5)>=1 AND C(4)>=1 AND 
C(8)>=1 AND C(9)>=1 AND C(13 
)>=1 AND C(12)>=1 THEN ERG£= 
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ERG$&R$(9)&"+" ELSE 1140 
1120 C(0),C(1),C(5),C(4),C(8 
),C(9),Cd3),C<12)=0 
1130 ! 

1140 !4er BLOCK 
1150 IF C(0)>=1 AND C(l)>=1 
AND C(2)>=1 AND C<3)>=1 THEN 
ERG*=ERG$&R*d0>k ,, + “ ELSE 1 
170 

1160 FOR 1=0 TO 3 :: C<I)=0 
:: NEXT i 

1170 IF C(1)>=1 AND C(3)>=i 
AND C(5)>=1 AND C(7)>=1 THEN 
ERG$=ERG$kR*(ll )fe" + " ELSE 1 
190 

1180 FOR 1=1 TO 7 STEP 2 :: 
C(I)=0 :: NEXT I 
1190 IF C(4)>=1 AND C(5)>=1 
AND C(6)>=1 AND C(7)>=1 THEN 
ERG$ = ERG$8<R$ (12) ßc" + " ELSE 1 
210 

1200 FOR 1=4 TO 7 :: C(I)=0 
:: NEXT I 

1210 IF C(0) > =1 AND C (2) > = 1 
AND C (4)>=1 AND C(6)>=1 THEN 
ERG$=ERG$8.R*(13)k" + " ELSE 1 
230 

1220 FOR 1=0 TO 6 STEP 2 :: 

C(I)=0 :: NEXT I 
1230 IF C(2)> = 1 AND C(3)> = 1 
AND C d 0! >=1 AND C(11)>=1 TH 
EN ERG'$=ERG$8<R$ (14 ) 8<" + " ELSE 
1250 

1240 C(2) ,C(3) ,C(10) ,C (1 1 )=0 
1250 IF C (3)>=1 AND C(7)>=1 
AND Cdl)> = l AND C (15) > = 1 TH 
EN ERG‘S=ERG$kR*d5)&" + " ELSE 
1270 

1260 C (3) , C (7) , Cd 1) , C (15) =0 
1270 IF C(7)>=i AND C(6)>=1 
AND C (15)>=1 AND C<14)>=1 TH 
EN ERG$=ERG*&R*(16)k H +". ELSE 
1290 

1280 C(7),C(6),C(15),C(14)=0 
1290 IF C(2)>=1 AND C(10)>=1 
AND C (6)> = 1 AND C(14)> = 1 TH 
EM ERG < fe=ERG$6cR$d7)&: ,, + " ELSE 
1310 

1300 C < 2),C(10),C(6),C(14)=0 
1310 .IF C(8)> = 1 AND C(9)>=i 
AND C <10)>=1 AND C(11)> = 1 TH 
EN ERG$=ERG$&,R$ (18)&" + H ELSE 
1330 

1320 FOR 1=8 TO 11 d C(I)=0 
:: NEXT I 

1330 IF C (9) >= 1 AND Cdi)> = l 
AND C(13)>=1 AND C(15)>=1 T 
HEN ERG$=ERG$&R$ (19) b" +" ELS 
E 1350 

1340 FOR 1=9 TO 15 STEP 2 : : 
C(I)=0 :I NEXT I 


1350 IF C(12)>=i AND C(13)>= 
1 AND C (1 4) >= 1 AND C(15)>=1 
THEN ERG*=ERG$&R$(20)S< M + « EL 
SE 1370 

1360 FOR 1=12 TO 15 d C(I)= 
0 :: NEXT I 

1370 IF C (8)>=1 AND C(10)>=1 
AND C(12)>=1 AND C(14)>=1 T 
HEN ERG$=ERG$&R$(21)fte"+" ELS 
E 1390 

1380 FOR 1=8 TO 14 STEP 2 d 
C(I>=0 d NEXT I 
1390 IF C(0)>=1 AND C(1)> = 1 
AND C(8)>=1 AND C(9)>=1 THEN 
ERG$=ERG$&R$ (22) k" ♦ " ELSE 1 
410 

1400 C(0),C(1),C (8) ,C(9)=0 
1410 IF C(i)>=i AND C( 5 ) >= 1 
AND C(9)>=1 AND C(13)>=1 THE 
N ERG$=ERG$&R$ (23) + " ELSE 

1430 

1420 Cd) ,C(5) ,C(9) ,C(13)=0 
1430 IF C(5)>=1 AND C(4)>=1 
AND C( 1 3)>=1 AND C(12)>=1 TH 
EN ERG*=ERG£kR$(24)8<" + " ELSE 
1450 

1440 C(5) ,C(4 ) ,C(13) ,C(12)=0 
1450 IF C(0)> = 1 AND C(4) > = 1 
AND C(8)> = 1 AND C C12> >=1 THE 
N ERG$=ERG*£<R$ (25) + " ELSE 

14 70 

1460 C(0),C(4),C(8),C (12) =0 
1470 IF C(0)>=1 AND Cd) > = i 
AND C (5) > = 1 AND C(4)> = 1 THEN 
ERG$=ERG$kR$(26)&" + " ELSE i 
490 

1480 C (0) ,C (1 ) ,C (5) ,C.<4)=0 
1490 IF C(2)>=1 AND C(3)>=1 
AND C(7)>=1 AND C<6)>=1 THEN 
ERG$=ERG$&R$(2?)&"+ H ELSE 1 
510 

1500 C(2),C(3),C(7),C(6)=0 
1510 IF C(10)>=1 AND C(ll)>= 
1 AND C(15)>=1 AND C(14)>=1 
THEN ERG$=ERG$&R$(28)&"+" EL 
SE 1530 

1520 C(10),C(11),C(15),C(14) 
=0 

1530 IF C (8) > = 1 AND C(.9)>=1 
AND C(13)>=1 AND C(12)>=1 TH 
EN ERG$=ERG*&R$(29)&"+" ELSE 
1550 

1540 C(8),C(9),C(13),C(12)=0 
1550 IF C(0) >=1 AND C <2)> = i 
AND C(10)>=1 AND C(8)>=1 THE 
N ERG$=ERG$&R$(30)k"+ " ELSE 
1570 

1560 C(0),C(2),C(10),C(8)=0 
1570 IF C(1)>=1 AND C(3)>=1 
AND C(11)>=1 AND C(9)>=1 THE 


ELSE 


N ERG$=ERG$&R$< 31 )&'• + « 

1590 

1580 Cd) ,C(3) ,CU1) ,C(9) =0 
1590 IF C(5)>=1 AND C(7)>=1 
AND C(15)> = 1 AND C<13)>=1 TH 
EN ER6$=ERG$fecR$(32)+ M ELSE 
1610 

1600 C(5),C(7),C(15), C d 3)=0 
1610 IF C<4)>=1 AND C( 6 )> = 1 
AND C(14)>=1 AND Cd2)>=l TH 
EN ERG$=ERGSLR£(33)^"+" ELSE 
1640 •• 

1620 C<4),C<6),C(14),C<12)=0 
1630 ! 

1640 !2er BLOCK 
1650 IF C(0)>=1 AND C(1)>=J 
THEN ER 6 $=ERG$LR$(34)&"+" EL 
SE 1670 

1660 C( 0 ).C (1 )=0 
1670 IF C (1)>=1 AND C(5)>=1 
THEN ERG$=ERG£LR£(35)8"*" EL 
SE 1690 

1680 C(l),C(5)=0 
1690 IF C (5)>“1 AND C(4)>=1 
THEN ERGS=ER6SkR$(36)&" +" EL 
SE 1710 

1700 C(5),C(4)=0 
1710 IF C(2)>~1 AND C(3)>=1 
THEN ERG$=ERG$&R$(37)4" EL 
SE 1730 

1720 C(2 )5 C(3)=0 
1730 IF C (3)>=1 AND C(7)>=1 
THEN ERG$=ERG$&R$(38)k"+" EL 
SE 1750 

1740 C (3),C(7) -0 
1750 IF C( 6 )>=1 AND C(7)>=1 
THEN ERG$=ERG$&R$(39)&"+" EL 
SE 1770 

1760 C( 6 ),C(7)=0 

1770 IF C<10)>=1 AND C(11)> — 

1 THEN ERG*=ERG$&R$(40)&"+" 

ELSE 1790 

1780 C(10),C<11)=0 

1790 IF C ( 11 )> = 1 AND C(15)>= 

1 THEN ERG$=ERG$kR$C41)&"+" 

ELSE 1810 

1800 Cdl) ,C(15)=0 

1810 IF C(15)>=1 AND C(14)>= 

1 THEN ERG$=ERGi£kR$(42)& ,, + ' , 

ELSE 1830 

1820 C(15),C d 4)=0 

1830 IF C( 8 )>=i AND C(9)>=1 

THEN ERG$=ERG$&R$ (43) ßc" 4 " EL 

SE 1850 

1840 C ( 8 ) ,C(9)=0 
1850 IF C(9)>=1 AND C(13)>=1 
THEN ERG*=ERG$&R$<44)&"4” E 
LSE 1870 

1860 C(9),C(13)=0 

1870 IF C (13) > = 1 AND Cd2)> = 

1 THEN ERG$=ERG$ 8 <R$ (45) 4 " 


ELSE 1890 

1880 C(13),C(12)=0 

1890 IF C(0)>=1 AND C(4)>=1 

THEN ERG$=ERG$&R$(46)k"4" EL 

SE 1910 

1900 C(0),C(4)=0 
1910 IF C(2)>=1 AND C( 6 )>=1 
THEN ERG$=ERG$kR$(47)k"4" EL 
SE 1930 

1920 C(2),C(6)=0 
1930 IF C<10)>=1 AND C (1 4 )> = 
1 THEN ERG$=ERG*&R$(48)k ,, + " 
ELSE 1950 
1940 C(10) . C (14)=0 
1950 IF C(8)>=1 AND Cd2)>=l 
THEN ERG$=ERG$&cR$ (49)&"4" E 
LSE 1970 

1960 C ( 8 ) ,C(12)=0 
1970 IF C ( 0)>=1 AND C(2)>=1 
THEN ERG*=ERG$?c-R$ (50) L" + ,! EL 
SE 1990 

1980 C(0),C(2)=0 
1990 IF C(1)>=1 AND C ( 3 )>= 1 
THEN ERG$=ERG$kR$ (51 )&:'' + " EL 
SE 2010 

2000 C(1),C(3)=0 
2010 IF C ( 5 ) >= J ANI* C(7)>=1 
THEN ERG*=ERG$8<RS (52) 8<" + " EL 
SE 2030 

2020 C(5),C(7)=0 
2030 IF C ( 4 ) >- 1 AND C(6)> = 1 
THEN ERG$=ER6$kR<£(53)8<"4" EL 
SE 2050 

2040 C(4) t C (6)=0 
2050 IF C (2)>=1 AND C(10)>=1 
THEN ER6$=ERG$&RS(54)&"4" E 
LSE 2070 

2060 C( 2 ),C( 10)=0 
2070 IF C(3)>=1 AND C(11)>=1 
THEN ERG$=ER6<fc&RiM55)ß< M 4" E 
LSE 2090 

2080 C(3),C(11)=0 
2090 IF C(7 )>=1 AND C(15)>=1 
THEN ERG$=ERG$fk'R$ (56) k" + " E 
LSE 2110 

2100 C(7),C(15 )~0 
2110 IF C( 6 )> = 1 AND C(14)>=1 
THEN ERG$=ERG$&R*(57)&"4" E 
LSE 2130 

2120 C(6),C(14)=0 
2130 IF C(10)>=1 AND C(8)> = 1 
THEN ERG$=ER6$ß<R4 (58) 4 M E 

LSE 2150 

2140 C(10),C( 8 )=0 
2150 IF C(11)>=1 AND C(9)>*1 
THEN ERG$=ERG$&:R$ (59) fee“ + " E 
LSE 2170 

2160 Cdl) , C (9) =0 

2170 IF C(15)>=1 AND C(13)>= 

1 THEN ERG$=ERG$8cR$ (60) ßc" 4 " 
ELSE 2190 
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2180 C (15),C(i3)=0 

2190 IF C(14)>=1 AND C<12)>= 

I THEN ERG«=ERG«kR«(61)&* , + " 
ELSE 2210 

2200 C < 14),C(12)=0 
2210 IF C(0)>=1 AND C(8)>=1 
THEN ERG«=ERG«&R«<62)&"+ M EL 
SE 2230 

2220 C(0 ),C(8)=0 

2230 IF C(1)>=1 AND C(9>>=1 
THEN ERG*=ERG*kRS<63)&"+" EL 
SE 2250 

2240 C <1>,C(9)=0 
2250 IF C (5) > = 1 AND C(13)>=1 
THEN ERG«=ERG«&R«<64)«<"♦" E 
LSE 2270 

2260 C(5),C(13)=0 
2270 IF C(4)>=1 AND C(12)>=1 
THEN ERG«=ERG«&R« ( 65 ) &" + " E 
LSE 2300 

2280 C(4),C(12)=0 
2290 ! 

2300 !1 er BLOCK 

2310 FÜR 1=0 TO 15 :: IF C(I 

)=1 THEN ERG«=ERG«kR«(66+1)k 

II x H 

2320 NEXT I 

2330 ERG«=SEG«(ERG$,1,LEN(ER 
G«)-1) 

2340 ! 

2350 !ERGEBNISAUSGABE 
2360 A«="ERGEBNIS: " :: FOR I 

= 1 TO LEN (A4)'.: CALL HCHAR (2 
0,16 + 1,ASC (SEG«(A«,1,1))):: 
NEXT I 

2370 ERG$="A="&ERG« :: IF LE 
N (ERG«) >23 THEN 2390 
2380 FOR 1=1 TO LEN(ERG«):: 
CALL HCHAR(22,3+I,ASC(SEG«(E 

rg«,i,i))):: next i :: goto 

2420 

2390 TEIL2«=SEG«(ERG«,POS(ER 
G«," +",25)+1,(LEN(ERG«)-POS< 
ERG«, H +",25))):: TEIL1«=SE6« 
(ERG«,1,POS(ERG«,"+ M ,25>) 
2400 FOR 1=1 TO LEN(TEIL1«): 

: CALL HCHAR(22,3+1,ASC(SEG« 

(ERG«,1,1))):: NEXT I 

2410 FOR 1=1 TO LEN(TEIL2«): 

: CALL HCHAR(24,3+1,ASC(SEG« 
(TEIL2«,1,1))):: NEXT I 
2420 A«="NEUE EINGABE ? J/N" 
:: FOR 1=1 TO LEN(A«):I CAL 
L HCHAR(17,14+1,ASC(SEG«(A«, 
1,1))):: NEXT I 
2430 CALL KEY(0,K,S) IF S= 
0 THEN 2430 

2440 IF K=78 THEN 2450 ELSE 
IF K=74 THEN 260 ELSE 2430 
| 2450 CALL CLEAR :: END 



Sehr günstig ! Ex-Box mit RS 232, 32K, Disk und 
Controler 1.099,— Module Datenverw. und Text- 
und Daeiverwaltung je 40,—. J. Weiß, Franckestr. 
14, 3380 Goslar 


Nur 399,- DM VB für TI-99/4A mit Exbasic + 
Recorder + Kabel + Lit. + 2 Joyst. + Lerncas. + 
Softw. Tel. 02850/7654 


Suche folgende Module: Pole Position, Popeye, 
Frogger, Early Learning Fun! Telefon: 0212/ 
62443, Blasberg 

TI99/4A + Exbasic + 6 Mod + Joyst. + Sprach- 
synth. + Kabel + Rec + Joyadapter + 2 Software 
Kass. + Bücher. 400 DM! Tel. 06301/4809 


Verk. neuw. ext. RSZ32- Interf. f. TI, eingeb. 
Netzt., Bus durchgef. 2ser. Ports.: DM 220,— + 
NN/Verp. T.: 069 30 66 71 (nicht v. 7.-25.9.) 


TI99/4A + Assembler + TI-Forth + Ex-Basic + 
E-Box + Disk-Laufwerk + Controler VB 1300 DM 
0761/28 13 21 


Verk. TI 99/4A + Ex-B. + Rec. Kabel + Recorder 
+ ca. 40 Prg. + 6xTI-Revue VB 600 DM. 

M. Meincke, Tel. 04105/23 56 


TAUSCHE orig. Schachmodul + Publikation „TI 
99/4A Intern“ + sehr gute ExB.-Software gegen 
Sprachsynthesizer. Interessenten bitte melden bei 
Holger Schwenke, Weststr. 33A, 3162 Uetze 

Suceh Kontakt zu Ti-User. Ist das nichts? Schreibt 
an: M. Kugelmann, Nassauerstr. 4, 6272 Niedern¬ 
hausen 


Verkaufe TI + Box + 32K + RS232 + 2 Laufw. 

+ Contr. + XB + EA + Sprachs. + Multipaln + Bu- 
chungsj. + ca. 25 Module + Recorder (alles org.) 

+ Lit + Software auf 100 Disks auch einzeln, Preis 
VB. Tel. 0821/63 857 (helfe bei Problemen) + 
Joysticks 

TI-Module Datenverwaltung + Analyse und Stati¬ 
stik je 55 DM zus. 100 DM. Lutz Klaus, Tel. 
0931/95298 

Doppel-Slimline-Flop pys VB 02624/38 17 

Suche Disk und Controler für Ti99 ■— Preiswert! 
Angebot an: Günter Link, Schulstr. 43, 5241 
Scheuerfeld 


TI99/4A + ExtB + Rec + Joyst + 10 Kass = 460 D M 
Module Schach + Adventure je 50 DM. Buchjour¬ 
nal 100 DM ab 19.00 Uhr 08551 / 1526 


Suche Ti-99 User im Raum Lippstadt und Soest 
zum Prog. und Erfahrungsaustausch in Ti- und 
Ext. Basic u. Speechsynthesizer (nur Cass.) mögl. 
Markus Loerwald, Eickelbomstr. 34, 478 Lipp¬ 
stadt 16. Tel. 02945/5711 


Verk. TI + Box + 32k + RS 232 + Contr. + Laufw. 
+ 25 Module + Multiplan + 2 Laufwerk. J. Storn, 
Christleseeweg 34, 8900 Augsburg 


Verkaufe original 32k intern für Peri-Box — fast 
neu - für 300,- DM. Tel. 08192/231 oder 089/ 
69 16 517 


Suche für TI99/4A PAL-Modulator. C. Hassel¬ 
kuss, Hinter der Mauer 26, 7024 Filderstadt, Tel. 
07158/2637, nur Sa-So 





















100 ! ************ ******* 

110 !* ' • HEXDUMP 4 

120 !# Copyright 1985 ty ■& 

130 !* Bernar-d Schmidt •* 

140 ! V- *- 

150 !*- Benoetigte Geraete : ?: 

160 !* TI99/4A Konsole * 

170 ! -y TI Extended Basic *: 

180 I X- 4 

190 '* Speicherbe1 egtng : - 

200 i* ' 1 633 Bytes ~ * 

210 4 

220 *?** ******* ***** ** --4’ *■>, 

230 CALL CLEAR 

240 DISPLAY AT<8,3>BEEP:"HEX 
DUMP DRUCKERAUSGABE " 

250 DISPLAY AT(12,3)I"FILENA 
me.: M :: acceft at( 12,1 

9):DRUCK* 

260 IF DRUCK*«"" THEN 250 
270 DISPLAY AT(14,3):"ANFANG 
ADRESSE :>" :: ACCEPT AT(14, 
19)SIZE(4)VAL IDATE(DIGIT, "AB 
CDEF"):ANF* 

280 DISPLAY AT(16,3):"ENDADR 

esse:: accept at(16, 

19)SIZE(4)VAL IDATE(DIGIT, "AB 
CDEF"):END* 

290 OPEN 441:DRUCK* :: PRINT 

441:".HEXDUMP" PRINT 

441 : : PRINT 441 

300 PRINT 441: ".VON. . > “ 

ANFS>"..PIS,,5"iEND* 

310 PRINT 441 :: PRINT #1 :: 
CLOSE 441 

320 CALL HEXDEZ(ANF,ANF*):I 
CALL. HEXDEZ(ENDE,END*) 

330 DIF=ENDE-ANF :: X«INT(DI 
F/16):: k=0 :: adr=anf 
340 FOR 1=1 TO x :: A*="- :: 

FOR J-0 TO 15 :: CALL PEEK( 
ANF+K+J,WERT) 

350 CALL DEZHEX(WERT,WERT*): 

; A*=A*k" "ILSEG* (WERT*, 3,2) : 

: next j 

360 CALL DEZHEX(ADR,ADR*) 

370 OPEN 441: DRUCK* :: PRINT 


HEXDUMF 


VOM >0000 EIS >0086 


441:" >"; ADR*; -..-ja* :: clos 
E #1 

380 K=K+16 :: ADR=ADR+16 :: 
NEXT I 

390 IF DIF-(X*16)>=0 THEN 40 
0 ELSE 450 

400 Y=DIF-(X*16):: a*="" :: 
FOR 1=0 TO Y 

410 CALL PEEK(ANF+K+I,WERT): 

: CALL DEZHEX(WERT,WERT*) 

420 A*=A* 8 -;" "fkSEG* (WERT*, 3,2 
):: NEXT I 

430 CALL DEZHEX(ANF+K,ADR*) 
440 OPEN 441: DRUCK* :: PRINT 

441:" > "; ADR*; ". . "; A* :: CLOS 
E 441 

450 CALL CLEAR 

460 DISPLAY AT(8,3)BEEP:"NEU 
E EINGABE (J/N) ?" 

470 CALL KEY(0,K,S):: IF S=0 
THEN 470 

480 IF K=74 THEN 230 ELSE IF 
K=78 THEN END ELSE 470 
490 SUE HEXDEZ(DEZ,HEX*) 

500 K(1)=4096 :: K(2)=256 :: 

K ( 3)=16 :: K ( 4)=1 
510 2AHL*="0123456789ABCDEF" 
520 DEZ=0 :: HEX*= "0000" &HEX 
* :: HEX*=SEG*(HEX*,LEN(HEX* 

)-3 , 4 ) 

530 FOR N=1 TO 4 I: DEZ=(POS 
(ZAHL*,SEG*(HEX*,N,1),1)-1)* 
K(N)+DEZ 

540 NEXT N :: SUBEND 
550 SUB DEZHEX(DEZ,HEX*) 

560 ZAHL*="0123456789ABCDEF" 

:: hex*,hexi*=-" :: dezi=de 

z 

570 FOR N=1 TO 4 :: R=(DEZ1- 
INT(DEZI/16)*16):: DEZ1=INT( 
DEZI/16) 

580 HEX1*=HEX1*&SEG*(ZAHL*,R 
+1,1):: NEXT N 

590 FOR N=1 TO 4 :: HEX*=HEX 
* 6 cSEG* (HEX1*, 5-N, 1) : : NEXT N 
:: SUBEND 



>0000 83 E0 00 24 8? C0 .09 00 83 CS 0A 92 30 AA 04 6.0 
>0010 0? FZ 0.0- JE 00 04 60 00 7A iE 00 04 60 C'0 78 
>0020 04 öS 04 FZ 02 0£ 98 00 «32 0E 01 00 02 0F 3C 02 
‘0030 02 00 00 20 10 13 10 
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100 

i X*** ******************* 

380 PRINT Ml:" DATA "JA« 

110 

« X 

p p K ELI S TEMGENER A TOR 

4 

390 CLOSE Ml 

120 

! * 

Crp, ri=ht öy 

Y ; 

400 K=K+20 I: NEXT I 

130 

• X 

Br •••nsrd Schmidt 

il 

410 IF DIF-(X*20)>=0 THEN 42 

140 

• * 


X 

0 ELSE 470 

150 

! X- 

b ü-ricc-t : q t e Ger s :- te ‘ 

4 

420 y=dif-(X*20):: A«="" :: 

160 

< -X- 

TI 99/4A Konsole 

*;• 

FOR 1=0 TO Y 

170 

i * 

TI Ex ter-dc-d Basic 

V 

430 CALL PEEK(ANF+K+I,WERT>: 

180 

! * 

32K-Er » et terun 9 

*• 

; A$=A«&" "&STR« (WERT ): : NEX 

190 

! * 



T I 

200 

i * 

Speic herbe 1e 9 un 9 - 


440 OPEN Ml:DRUCK« 

210 

! * 

1290 Byte« 


450 PRINT Ml:" DATA "JA« 

220 

1 X 



460 CLOSE Ml 

230 

i * 

4* •! *-X* > 6 * * 44 4* ** •' X - »- 

-> 

470 CALL CLEAR 

240 

CALL CLEAR 


480 DISPLAY AT( 8 ,3)BEEP:"NEU 

250 

DI 

SPLAY AT ( 8 ,3)BEEP:"ERS 

E EINGABE (J/N) ?" 

TELLÜNG VOM POKFL 13TFN *' JS 

D 

490 CALL KEY(0,K,S):: IF S=0 


ISPLAY AT (i0,8):"MIT DRUCKER 

i " 

260 DISPLAY AT(16,3):"FILENA 
ME :" :: accept at <16,19) 

:druck* :: if druck«="" then 
260 

270 DISPLAY AT(17,3):"PROGRA 
MMNAME ?" :: ACCEPT AT(17,19 

):name« 

280 DISPLAY AT(18,3):"STARTA 

dresse: >" :: accept at(18, 

19)SIZE <4)VALIDATE(DIGIT,"AB 
CDEF"):ANF« 

290 DISPLAY AT(20,3):"ENDADR 
ESSE : accept at(20, 

19)SIZE(4)VALI DATE(DIGIT,"AB 
CDEF"):END« 

300 open #i: druck« :: PRINT 

M 1: “ PROGRAMMNAME : " J NAME« : : 

PRINT #1 :: PRINT Ml? "PÖKEL 
ISTE VON > M JANF«J M BIS >"iEN 
D« 

310 PRINT Ml 

320 PRINT Ml :: CLOSE Mi 
330 CALL HEXDEZ(ANF,ANF«)I: 
CALL HEXDEZ(ENDE,END«) 


IF 


THEN 490 

500 IF K=74 THEN 240 ELSE 
K=78 THEN END ELSE 490 
510 SUB HEXDEZ(DEZ,HEX«) 

520 K(1)=4096 :: K(2)=256 :: 

K(3)=16 :: K(4)=1 
530 ZAHL«= "0123456~’39ABCDEF " 
540 DEZ=0 :: HEX«= " 0000" fkHEX 
« :: HEX«=SEG«(HEX«,LEN(HEX« 
)-3,4) 

550 FÜR N=1 TO 4 :: DEZ=(POS 
(ZAHL«,SEG«(HEX«,N,1 ),1)-1)# 
K(N)+DEZ 


560 NEXT N 


SUBEND 


340 DIF=ENDE-ANF 
F/20):: K=0 
350 for 1=1 to x :: 

360 FOR J=1 TO 20 :: 
EK(ANF+K+J-i,WERT):: 

"&STR«(WERT):: NEXT 
370 OPEN M1:DRUCK« 


X=INT(DI 

A«=" " 
CALL PE 
A«=A«k" 


UNSER 

S TELEFONSERVICE S 

Leserbriefe und Fragen sind uns stets willkommen. 
Wir beantworten sie entweder direkt oder auf , 
der Leserbriefseite 
ACHTUNG !ü 

Wie immer steht unseren Lesern unser Telefon- 
Service zur Verfügung! Jede n Dienstag von 15 bis 
1 9 Uhr . Für technische Fragen : 0731/33 2 20 und 
für Listings/Progra m me: 089/129 80 1 3 


RO G 9 ÄMMNAME :PROBE 

PÖKELTSTE VOM >0000 EIS '0024 


DAT 

DATA 


\2 1 224 0 36'131 122 9 0 131 1-2 10 146 48 170 4 
30 0 4 96 0 122 30 0 4 96 0 120 4 96 4 17S 2 


2 178 
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SPASS 

SPIEL 

SPANNUNG 


IRVEL 

Mit Ihrem Raumschiff 
haben Sie sich auf dem 
Planeten Irvel verirrt. Um 
nach dem richtigen Heim¬ 
weg zu fragen, verlassen 
Sie Ihr Schiff und erkun¬ 
den den Planeten zu Fuß. 
Dabei geraten Sie in das 
gefürchtete Labyrinth 
von Irvel. 

Zwar finden Sie hier 
reichlich Schätze vor, mit 
denen Sie Punkte sam¬ 
meln können, doch nach 
J2000 Punkten wird es 
den Hütern der Schätze 
zu viel und sie versuchen, 
den Eindringling zu ver¬ 
nichten. 

Die Mauern des Laby¬ 
rinthes verschieben sich 
plötzlich und gefährliche 
Fallgruben entstehen. 

Trotzdem kann das La¬ 
byrinth erst verlassen 
werden, wenn mindestens 
Schätze im Wert von 
10 000 Punkten gesam¬ 
melt wurden. Je höher 
die Punktzahl steigt, 
desto gefährlicher wird 
der Aufenthalt im Laby¬ 
rinth. 

Um Ihnen den Aufent¬ 
halt etwas zu erleichtern, 
bekommen Sie bei 4 500 
Punkten einen Bonus und 
ein zusätzliches Leben. 


Nur wenige sind aus 
diesem Labyrinth wieder 
heil ans Tageslicht ge¬ 
kommen. 

Ob Sie nun auch dazu 
gehören werden ??? 

P.S.: Denkt daran: Die 
Hilfspunkte im Listing 
nicht mit abtippen. 

H.K. 

The Castle of 
81 Rooms 

Dieses Spiel ist im Adven- 
ture-Stil aufgebaut und 
hat eine 3D-Graphik. Die 
Aufgabe ist ganz einfach: 
Sie müssen aus dem La¬ 
byrinth herausfinden. 
Das müssen Sie aber le¬ 
bendig bewerkstelligen. 
In der Burg mit den 81 
Räumen (9x9) gibt es 
auch böse Geister und ei¬ 
nen sogenannten ,Eurgvi- 
rus‘. Der Kontakt mit ei¬ 
nem von beiden endet für 
Sie tödlich, es sei denn, 
Sie haben vorher in 
einem der Räume eine Bi¬ 
bel gegen den Geist oder 
eine Pille aufgenommen. 
Nehmen Sie einen Gegen¬ 
stand aus einem Raum 
auf, so verschwindet er 
von dort. Sie können je¬ 
weils nur drei Pillen und 
drei Bibeln tragen. Bei je¬ 
dem ,Femdkontakt‘ wird 


Ihnen das jeweilige Gegen¬ 
mittel abgezogen. Truhen 
und Kelche voller Energie 
können Sie nehmen, so¬ 
viel Sie wollen. Sinkt die 
Energie unter Null oder 
begegnen Sie einem Geist 
oder einem Virus ohne 
das entsprechende Gegen¬ 
mittel, so sterben Sie. 

G.S. 


Ecarte 

Dieses Programm erlaubt 
es, gegen den Computer 
Ecarte zu spielen. Hierbei 
gelten folgende Spielre¬ 
geln: Es wird mit einem 
Skatspiel (32 Karten) ge¬ 
spielt. Die Reihenfolge 
ist: König, Dame, Bube, 
As, 10, 9, 8, 7. 

Zuerst wird per Zufall 
bestimmt, welcher der. 
beiden Spieler Geber und 
welcher Ausspielender 
ist. Dann werden die Kar¬ 
ten gegeben (dies wird 
unabhängig von den Spie¬ 
lerbezeichnungen immer 
vom Computer erledigt.). 
Jeder erhält fünf Karten. 
Die elfte Karte wird of¬ 
fen auf den Tisch gelegt 
und bestimmt die 
Trumpffarbe. Ist es ein 
König, so erhält der Ge¬ 
ber einen Punkt. Auch 
wenn einer der beiden 
Spieler den Trumpfkönig 
hat oder ihn später erhält, 
so kann er ihn anmelden 
und erhält einen Punkt 
dafür. (Taste ,a‘). 

Nun muß der Ausspie¬ 
lende entscheiden, ob er 
spielen will (Taste ,s‘) 
oder ob er einige Karten 
austauschen will (Taste 
,k‘). Will er Karten aus¬ 
tauschen, so muß der Ge¬ 
ber entscheiden, ob er 
doch spielen soll oder die 
Karten tauschen kann, 
dies wird wieder durch 
dieselben Tasten gesteu¬ 
ert. Bestätigt er den Aus¬ 
tausch, so müssen zuerst 
der Ausspielende und 
dann der Geber die Zahl 


und die Nummern der 
auszutauschenden Karten 
angeben. ^Hierbei denkt 
man sich die Karten von 
oben nach unten von 1-5 
durchnumeriert. Dies ist 
nur möglich, solange 
noch Karten auf dem Ta¬ 
lon liegen. 

Hat einer der Spieler 
entschieden, daß das 
Spiel beginnen soll, so 
spielt der Ausspielende 
die erste Karte auf. Von 
diesem Zeitpunkt an ist 
es nicht mehr möglich, 
enen Trumpfkönig anzu¬ 
melden. Für das Bedienen 
gelten folgende Regeln: 

— Man muß, sofern mög¬ 
lich, immer bedienen! 

— Jeder Stich muß, wenn 
möglich, mitgenommen 
werden! 

Eine Karte wird durch 
Eingabe ihrer Nummer 
ausgespielt. Nach fünf 
Stichen ist das Spiel zu¬ 
ende. 

Hat derjenige, der zum 
Spiel aufgefordert hat, 
alle Stiche gemacht, so 
bekommt er zwei Punkte; 
hat er mindestens drei 
Stiche gemacht, so erhält 
er einen Punkt und hat er 
weniger als drei, werden 
ihm zwei Punkte abgezo- 
gen. 

Der Computer über¬ 
wacht, daß der Spieler 
die Regeln genau einhält 
und spielt den Stich 
selbst, wenn man das 
nicht tut. 


Sky-Driver 

Sky-Diver ist ein Spiel, 
das auf dem TI-Grundge- 
rät läuft. Aufgabe des 
Spielers ist es, Fallschirm¬ 
springer aus einem Hub¬ 
schrauber so abzusetzen, 
daß diese die Landemar¬ 
ke möglichst in der Mitte 
treffen. 

Die Position der Lan¬ 
demarke sowie der Hin¬ 
dernisse (Bäume und eine 
große Wolke) werden 
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durch die RND-Funktion 
bestimmt. 

Anfangs stehen 5 Sprin¬ 
ger zur Verfügung. Wird 
die Landemarke in der 
Mitte getroffen, so erhält 
der Spieler 3 Punkte; die 
Anzahl der Springer bleibt 
unverändert. Wird die 
Marke am Rand getrof¬ 
fen, so erhält man einen 
Punkt, aber es wird ein 
Springer abgezogen. Wird 
die Marke nicht getrof¬ 
fen, so wird ebenfalls ein 
Springer abgezogen. 

Bei 30 erreichten Punk¬ 
ten bekommt man einen 
Bonus-Springer. Der Spie¬ 
ler kann zwischen einer 
leichteren Spielvariante 
(ohne Windbeeinflussung 
des Springers) und einer 
etwas schwierigeren wäh¬ 
len. 


¥ariabien-Liste 

I,K,L Schleifenvariable 
M,Y Merker für Auszu¬ 
führende bzw. 
nicht mehr auszu¬ 
führende Pro¬ 
grammteile 

A,B zum Einlesen der 
Data-Zeilen 
SP Spielart 
P Punkte 
MEN Anzahl der noch 
vorhandenen 
Springer . • 

BZ Merker, ob der 
Bonus-Springer 
bereits einmal zü- 
gezählt wurde 
WM Wind von links/ 
rechts bzw. kein 
Wind 

Z,Q,W Variablen für 
die GChar-Ab- 
frage 

L,U Bestimmen die 
Sprungbewegung 
PU Abfrage ob 0,1 

oder 3 Punkte er¬ 
zielt wurden 
T Bestimmt, ob ein 
Spieler abgezogen 
wird oder nicht 

EOF 

Dirk Junghans 


CITCH WITH CAR 


Catch with Car ist ein 
Spielprogramm für den Ti 
99/4A in der Grundaus¬ 
stattung. Um das Pro¬ 
gramm laufen zu lassen, 
werden folgende Hard¬ 
ware-,,Teile“ benötigt: 

1 Ti99/4A Computer 
1 Joystik (Joystik Nr. 2) 
1 Fernseher/Monitor 
und weiter empfehle ich 
einen Cassettenrekorder 
oder eine Diskettensta¬ 
tion zum Abspeichern 
des Programms. 

Sie leben auf einem 
fremden Planeten, der 
von riesigen Insekten be¬ 
herrscht wird. Ihre Auf¬ 
gabe ist es nun, mit Joy¬ 
stik 2 ein Fahrzeug zu 
steuern und dabei die In¬ 
sekten, die immer verein¬ 
zelt auftauchen, zu über¬ 
fahren. Da es auf dem 
Planeten ausschließlich 
Sandbogen gibt, reißt Ihr 
Fahrzeug tiefe Furchen 
in den Sand. Wenn Sie 
nun in eine solche Furche 
hineinfahren, gibt es 
Punktverlust. Insgesamt 
dürfen Sie auch nur 15- 
mal in eine solche Furche 
fahren. 

Es gibt verschiedene 
Arten von Insekten auf 


dem Planeten, bei einigen 
gibt es nur Punkte, wenn 
sie diese überfahren, bei 
anderen verschwindet an 
einigen vereinzelten Stel¬ 
len die Furche und bei 
noch anderen gibt es 
Punkte und es verschwin¬ 
den Furchenabschnitte. 
Ihnen stehen drei Fahr¬ 
zeuge zur Verfügung, die¬ 
se Zahl vermindert sich, 
wenn Sie aus dem Spiel¬ 
feld fahren. Folgende 
Punkte führen zum Spiel¬ 
ende: 

Mehr als 15mal in eine 
Furche gefahren, weniger 
als Null Punkte. Dreimal 
aus dem Spielfeld gefah¬ 
ren. 

Wenn Sie 1500 Punkte 
erreicht haben, erhöht 
sich die Anzahl der Fahr¬ 
zeuge um eins, 25 Fur¬ 
chenabschnitte werden 
gelöscht und es ertönt ei¬ 
ne Melodie. 

Zu Beginn des Spiels 
und wenn Sie aus dem 
Feld gefahren sind, müs¬ 
sen Sie den Feuerknopf 
betätigen, um weiterfah¬ 
ren zu können. Und nun 
wünsche ich Ihnen viel 
Spaß mit dem Spiel!!! 

Dirk Junghans 


Dreiecks- and Kreisberechnungen 


Mit diesem Programm 
stellt Euch der Autor, 
Jürgen Brühne, eine klei¬ 
ne Hilfe für die Hausauf¬ 
gaben zur Verfügung. Seid 
Ihr in Mathe gerade bei 
dem Thema Geometrie 
angelangt, kann der 
Rechner nun Eure Haus¬ 
aufgaben kontrollieren. 
Natürlich sollten die Auf¬ 
gaben auch weiterhin al¬ 
leine gemacht werden, 
denn wenn der TI99 Eure 
Aufgaben alleine macht, 
bleibt von dem Stoff bei 
Euch wenig hängen und 
am Ende des Schuljahres 
schlägt sich dies in Eurem 


Notenspiegel nieder. Auf 
jeden Fall dürft Ihr Euren 
Rechner aber die Aufga¬ 
ben auf korrekte Lösun¬ 
gen überprüfen lassen, um 
am nächsten Tag nicht 
auf die Nase zu fallen. 
Da das Programm voll¬ 
ständig in TI-Basic ge¬ 
schrieben wurde, braucht 
keiner von Euch darauf 
zu verzichten. 

Ein Menue führt durch 
das Programm und es 
müssen nur noch die ein¬ 
zelnen Werte der Berech¬ 
nungen eingegeben wer¬ 
den. 

Jürgen Brühne 


Dreidimensionale 


Der Sinn dieses Spieles ist 
es, möglichst viele „Müh¬ 
len“ zu bauen. .2 Spieler 
erhalten je 32 Steine, die 
sie abwechselnd setzen — 
einer dieser Spieler kann 
auch der Computer sein 
— Man versucht nun, 
durch geschicktes Setzen 
der Steine jeweils 4 in 
eine senkrechte, waage¬ 
rechte oder diagonale Li¬ 
nie zu bringen: 

0 ' 0 
0 0 
0 0000 0 
0 0 
Dies sind die Mühlen. 
Wenn alle Steine gesetzt 
sind, hat der Spieler mit 
den meisten Mühlen ge¬ 
wonnen. Das Zählen der 
Mühlen übernimmt der 
Computer. 

Bei diesem Spiel müs¬ 
sen einmal nicht feindli¬ 
che Objekte abgeschossen 
werden; es soll vielmehr 
das logische und räumli¬ 
che Denken gefördert 
werden. Jürgen Brühne 


Copyright 

Zeichen 


Das Programm „Copy¬ 
right Zeichen“ ist in TI- 
Basic programmiert wor¬ 
den, läuft aber auch 
unter Extended Basic! 

Sicher haben Sie auch 
schon einmal überlegt, 
welches Copyrightzei¬ 
chen Sie für Ihr Pro¬ 
gramm verwenden wollen, 
und haben dann krampf¬ 
haft irgendein Zeichen 
definiert. Mit diesem Pro¬ 
gramm hat das ein Ende! 
Hier haben Sie die Aus¬ 
wahl zwischen 11 vorde¬ 
finierten Copyrightzei¬ 
chen. Wählen Sie in 
einem Menü Ihr Zeichen 
und der TI wird Ihnen 
den IGstelligen Code auf 
den Bildschirm schrei¬ 
ben! Viel Spaß beim Aus- 
suchen. Matthias Orf 
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10 REM******************** 


11 REM* * 

12 REM* IRVEL * 

13 REM* Copyright by * 

14 REM* Manfred Lipowski * 

13 REM* . * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 12779 Bytes * 


25 REM******************** 

26 REM 

120 RANDOMIZE 
130 CALL CLEAR 
140 CALL SCREEN(7) 

150 CALL C0L0R(1,16,16) 

160 FOR A=1 TO 24 
170 PRINT 
180 NEXT A 
190 REM 

GRAFIK IRVEL 

200 CALL CHAR(64,"3C4299A1A1 
99423C") 

210 CALL CHAR<96,”0018180018 
181818") 

220 CALL CHAR(97,"1818181818 
181818") 

230 CALL CHAR(98,"007C7E6666 
66667E") 

240 CALL CHAR(99,"7C786C6666 
666666 ") 

250 CALL CHAR(100,"006666666 
6666666 ") 

260 CALL CHAR(101,“663C3C3C3 
C181818") 

270 CALL CHAR<102,"007E7E606 
060607C") 

280 CALL CHAR(103,"7C6060606 
0607E7E") 

290 CALL CHAR(104,"006060606 
0606060“) 

300 CALL CHAR(105,“606060606 
0607E7E“) 

310 REM 

.. GRAFIK SETZEN 
320 CALL COLOR(9,5,16) 

330 CALL COLOR(10,5,16) 

340 FOR A=2 TO 8 

350 CALL COLOR(A,13,16) 

360 NEXT A 

370 PRINT “.......0 • b d f 

h..... ...a c e g 

i" 

380 print ::::::::: 

390 PRINT “..PRESS ANY KEY T 
0 BEGIN" 

400 DATA 262,330,392,262,330 
,392,349,440,523,349,440,523 
,262,330,392,262,330,392 


410 DATA 196,247,294,196,247 

,294,262,330,392,262,330,392 

,349,440,523,349,440,523 

420 DATA 262,330,392,196,247 

,294,262,262,262 

430 RESTORE 400 

440 FOR A=1 TO 45 

450 READ BOT 

460 CALL KEY(0,K,S) 

470 IF S«=0 THEN 480 ELSE 510 
480 CALL SOUND(-999,BOT,0,BO 
T+2,0,BOT-2,0) 

490 NEXT A 

500 GOTO 430 

510 GOSUB 3250 

520 REM SPIELERKLAERUNG 

ODER 

PROGRAMANLEITUNG 

530 FOR A=1 TO 24 
540 PRINT 
550 NEXT A 

560 PRINT "..SPIELERKLAERUNG 
? (J/N)" 

570 print ::::::::: 

• 

• 

580 GOTO 600 

590 CALL S0UND(99,110,0,220, 
0 ) 

600 CALL KEY(0,K,S) 

610 IF S=0 THEN 600 
620 IF K=78 THEN 820 
630 IF K=74 THEN 650 
640 GOTO 590 

650 PRINT ". Q ' b d i 

h*: u ......... 3, c e g i"; ; - 

660 PRINT "IHRE AUFGABE BEST 
EHT DARIN": :"DEN ABENTEURER 
SICHER DURCH": :"DAS LABYRI 
NTH VON IRVEL ZU": :"FUEHREN 


670 PRINT :"ER MUSS ALLE 10 
SCHAETZE": :"BERUEHREN UM IN 
DIE NAECHSTE": :"RUNDE ZU K 

OMMEN.>>": : : : : 

680 CALL KEY(0,K,S) 

690 IF S=0 THEN 680 
700 PRINT :"BEI EINEM PUNKTE 
STAND VON": :“2000 P WERDEN 
DIE TEMPEL-": :"GOETTER ZORN 
IG UND FANGEN": : 

710 PRINT "AN DAS LABYRINT 
ZU VER-": :"SCHIEBEN.MAUERN 
WERDEN EIN-": :"GERISSEN UND 
AN ANDERER": :"STELLE WIEDE 
R AUFGEBAUT !" 

720 PRINT :"LOECHER ERSCHEIN 
EN IM BODEN": :"UND VERSCHWI 
NB EN NACH EINER": :"WEILE.ER 
ST WENN IHR P-KONTO": : 

730 PRINT "10000 P ANZEIGT W 
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ERDEN SIE“! :"AUS DEM LABYRI 
NTH ENTLASSEN." 

740 CALL KEY <0,K, S) 

750 IF S=*0 THEN 740 
760 PRINT :"DAS SPIEL WIRD M 
IT JOYSTICK": :"1 GESTEUERT. 
DER ABENTEURER": :"KANN IN J 
EDE RICHTUNG ZIEHEN": : 

770 PRINT ", DIAGONAL,SENKREC 
HT U.S.W.": .‘"WIRD IHR ABENT 
EURER WOHL JE": ‘."WIEDER DEN 
BLAUEN HIMMEL VON": :"IRVEL 
ZU SEHEN BEKOMMEN ?" 

780 PRINT :"WER WEISS...!": 

: :"ALPHA LOCK BITTE AUSRAST 

EN ! " 

790 PRINT : : : : 

800 CALL KEY (0,K ,S) 

810 IF S=0 THEN 800 
820 CALL CLEAR 
830 CALL SCREEN( 2) 

840 REM 

GRAFIK FUER EINGEN 
DLICHES PROGRAMM 
WAENDE 

850 CALL CHAR(33,"3C7EFFFFFF 
FF7E3C") 

860 CALL CHAR (40,"FF388888FF 
2424FF") 

870 CALL CHAR(41,"FF212121FF 
8989FF") 

880 CALL CHAR(42,"FF848484FF 
9191FF") 

890 REM 

GRAFIK SCHAETZE 
900 CALL CHAR(112,"1F2345FDB 
58586FC") 

910 CALL CHAR(113,"224149556 
3777F3E") 

920 CALL CHAR(114,"101038101 
0101010 ") 

930 CALL CHAR(115,”7F30FC783 
0000000 ") 

940 CALL CHAR(116,"0000FE040 
E1F0E04") 

950 CALL CHAR(117,"183C5A7E7 
E243C18") 

960 CALL CHAR(118,“1C222A5D4 
92A221C") 

970 CALL CHAR(119,"000040A0B 
FA54500") 

980 REM ABENTEURER 

990 CALL CHAR(120,"181866BD9 

9242442") 

1000 CALL CHAR(121,"181A6FBD 
9A242412") 

1010 CALL CHAR(122,"1858F6BD 
59242448") 

1020 REM GRAFIK ABENTEU.ANZE 
IGE U. HINTERG. 

1030 CALL CHAR(140,"00000000 


00000000 ") 

1040 CALL CHAR<141,"181866BD 
99242442“) 

1050 REM SPIELFELD AUFBAU 
1060 CALL C0L0R(2,13,15) 

1070 CALL COLOR(1,2,16) 

1080 CALL COLOR(14,15,1) 

1090 CALL COLOR(3,8,1) 

1100 CALL COLOR(4,8,1) 

1110 CALL C0L0R(5,11,1) 

1120 CALL COLOR(6,11,1) 

1130 CALL COLOR(7,11,1) 

1140 CALL COLOR(8,11,1) 

1150 CALL COLOR(11,5,16) 

1160 CALL COLOR(12,2,16) 

1170 CALL HCHAR(1,1,140,96) 
1180 DATA "(((((((((((<(((<( 
(((<(<(<<(((<<(","() *) (... 

. (_*)_(...(*) ( " 

1190 DATA " ( )-(-(-* 

) _ ( . . . ( _ (","<(<() < * < 

(((() *> *(((() ( *<((","<). 

. *) . 

( " 

1200 DATA "<<((((<() *(((((( 

((<(((() *<((((","() . 

. *) . <" 

1210 DATA "((() *(<(<()..( * 

) (..*(<((> *(<","() . 

. ( () *> *) (....(","((( 

(((((() ( .. ( _ ( .. ( #<(((<( 

( " 

1220 DATA " ( ). *(((<( 

((((() . (","() *<((((( 

( ( ( () _ *((((((((() (" 

1230 DATA " ( ). (..(.. 

..(..( . <","<(() * ( ( ( ( 

() *() *< () *<(<<)• #<'<" 

1240 DATA "(). 

.. (","(((((((<) 

*((<<(<<(<<(<) *<((<<(" 

1250 DATA "()...-...# 

) . (","(((() ( * ( 

( ((() *) *(((<) ( *< < <" 

1260 DATA " ()-(. . . (.* 

) _ #) (. .. 

<" 

1270 DATA "(<(<<<<(((((((((< 
(<(((((<<((((<<" 

1280 RESTORE 1180 
1290 FOR A=4 TO 24 
1300 READ B$ 

1310 FOR B=1 TO LEN(B*) 

1320 CALL HCHAR(A,B,ASC(SEG$ 
(B$,B,1))) 

1330 NEXT B 
1340 NEXT A 
1350 A=1 
1360 B=3 

1370 A$=“SCORE:" 

1380 GOSUB 2890 






















1390 A=1 
1400 B-l9 
1410 A$= M MEN: M 

1420 GOSUB 2890 

1430 MEN=3 

1440 GOSUB 2940 

1450 SCORE=50 

1460 GOSUB 3040 

1470 GOSUB 2390 

1480 REM ABENTEURER ZUFAELL 

IG SETZEN ! 

1490 XX=INT(RND*19)+4 
1500 YY=INT(RND*27)+2 
1510 CALL GCHAR(XX,YY,PP) 
1520 IF PP<>32 THEN 1490 
1530 CALL HCHAR(XX,YY,120) 
1540 GOSUB 3250 
1550 PAT =120 
1560 REM HAUPTTEIL DES 
PROGRAMMS 

1570 CALL HCHAR(XX,YY,PAT) 
1580 CALL SOUND(-999,-4,9) 
1590 IF SCORE< =2000 THEN 162 
0 ELSE 1600 

1600 IF RND<.4 THEN 1610 ELS 
E 1620 

1610 GOSUB 2520 
1620 CALL JOYST(1,X,Y) 

1630 IF <X=0)*(Y=0)THEN 1570 

1640 IF X=-4 THEN 1690 

1650 IF X=4 THEN 1720 

1660 IF Y=-4 THEN 1750 

1670 IF Y=4 THEN 1780 

1680 GOTO 1620 

1690 PAT=121 

1700 S0U=-5 

1710 GOTO 1800 

1720 PAT=122 

1730 SOU=-5 

1740 GOTO 1800 

1750 PAT=120 

1760 S0U=-6 

1770 GOTO 1800 

1780 PAT=120 

1790 S0U=-7 

1800 CALL HCHAR(XX,YY,32) 
1810 SCORE=SCORE-l 
1820 IF SCORE<0 THEN 3310 
1830 XX=XX+(Y/-4) 

1840 YY=YY+(X/4) 

1850 CALL GCHAR(XX,YY,PP) . 
1860 IF PP<>32 THEN 1900 
1870 CALL HCHAR(XX,YY,PAT) 
1880 CALL SOUND(-1,SOU,9) 
1890 GOTO 1620 
1900 REM ABFRAGE OB WAND 
ODER SCHATZ BERUEHRT 
1910 IF (PP=40)+(PP=41)+(PP= 
42)+(PP=33)THEN 1920 ELSE 21 
10 


1920 FOR A=3 TO 30 STEP 3 
1930 CALL SOUND(-99,-5,A) 
1940 NEXT A 

1950 CALL HCHAR(XX,YY,40) 

1960 MEN=MEN-1 
1970 A=3 
1980 B=3 

1990 A$=" DORT" &CHR$ (140) WA 
R ,, &CHR$(140)& H EINE‘ , &CHR$(140 
)&"MAUER" 

2000 IF PP=33 THEN 2010 ELSE 
2020 

2010 A$= " INS"EtCHR$ (140) LOC 
H u kCHR$(140)& M GEFALLEN“ 

2020 GOSUB 2890 
2030 GOSUB 3250 
2040 GOSUB 2940 
2050 SCORE=SCORE-100 
2060 GOSUB 3040 
2070 FOR A=1 TO 400 
2080 NEXT A 

2090 CALL HCHAR(3,1,140,32) 
2100 GOTO 1490 
2110 CALL HCHAR(XX,YY,PAT) 
2120 TONO=INT(RND*220)+220 
2130 FOR A=0 TO 30 STEP 5 
2140 CALL COLOR(12,7,16) 

2150 CALL SOUND(-300,TONO,A, 
T0N0+2,A,TONO/2,A) 

2160 CALL COLOR(12,2,16) 

2170 NEXT A 

2180 IF PP=i17 THEN 2190 ELS 
E 2210 

2190 SCORE=SCORE+150 
2200 GOTO 2320 

2210 IF PP=113 THEN 2220 ELS 
E 2240 

2220 SCORE=SCORE+125 

2230 GOTO 2320 - 

2240 IF PP=118 THEN 2250 ELS 

E 2270 

2250 SCORE=SCORE+200 

2260 GOTO 2320 

2270 IF PP=112 THEN 2280 ELS 

E 2310 

2280 SCOR1=INT(RND*150)+25 

2290 SCORE=SCORE+SCORl 

2300 GOTO 2320 

2310 SCORE=SCORE+100 

2320 GOSUB 3040 

2330 SCOR1=0 

2340 SCHATZ=SCHATZ+1 

2350 IF SCHATZ=10 THEN 2360 

ELSE 1620 

2360 GOSUB 2390 

2370 GOTO 1570 

2380 REM SCHATZ SETZEN 

2390 FOR AP=1 TO 10 

2400 QWE=INT<RND*220)+220 

2410 QQ=INT(RND*19)+4 
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2420 WW»INT(RND*29>+2 
2430 CALL 6 CHAR(QQ,WW,EE) 

2440 IF EE<>32 THEN 2410 
2450 RR=INT(RND* 8 +i)+lil 
2460 CALL HCHAR(QQ,WW,RR> 

2470 CALL SOUND<-99,QWE,AP*2 
,QWE/2,AP*2) 

2480 NEXT AP 
2490 SCHATZ=0 
2500 RETURN 

2510 REM WAND ENTFERNEN 
LOCH SETZEN 
LOCH ENTFERNEN 
WAND SETZEN 

2520 REM 

2530 ZX=INT(RND*18)+5 
2540 XZ=INT(RND*27>+3 
2550 CALL GCHAR(ZX,XZ,ZZ) 

2560 IF (ZZO40)*(ZZO4i)*(Z 

Z< >42)THEN 2530 

2570 CALL SOUND(-99,-7,0) 

2580 CALL HCHAR(ZX,XZ,32) 

2590 CALL SOUND(-99,-5,3) 

2600 ON INT(RND*3+1)GOTO 261 

0,2680,2790 

2610 ZX=INT(RND*18)+5 

2620 XZ=INT<RND*27)+5 

2630 CALL GCHAR(ZX,XZ,ZZ) 

2640 IF ZZ<>32 THEN 2610 
2650 CALL SOUND(-99,-5,0) 

2660 CALL HCHAR(ZX,XZ,33) 

2670 CALL SOUND(-99,- 6 ,3) 
2680 IF RND<.4 THEN 2690 ELS 
E 2790 

2690 ZX=INT(RND*18)+5 
2700 XZ=INT<RND*27)+5 
2710 XTA=XTA+1 
2720 IF XTA=5 THEN 2780 
2730 CALL GCHAR(ZX,XZ,ZZ) 
2740 IF ZZ<>33 THEN 2690 
2750 CALL SOUND(-99,-6,0) 
2760 CALL HCHAR(ZX,XZ,40) 
2770 CALL SOUND(-99,-7,5) 
2780 XTA=0 

2790 IF RND <.6 THEN 2800 ELS 
E 2870 

2800 ZX=INT(RND*18)+5 
2810 XZ=INT(RND*27)+5 
2820 CALL GCHAR(ZX,XZ,ZZ) 
2830 IF ZZ<>32 THEN 2800 
2840 CALL SOUND(-99,-1,0) 
2850 CALL HCHAR(ZX,XZ,40) 
2860 CALL SOUND(-99,-3,0) 
2870 RETURN 

2880 REM WOERTER PRINTEN 
2890 FOR C=1 TO LEN(A*) 

2900 CALL HCHAR<A,B+C,ASC<SE 
G*(A*,C,1))) 

2910 CALL SOUND(1,-1,0) 

2920 NEXT C 
2930 RETURN 


2940 IF MEN<=0 THEN 2990 ELS 
E 2950 

2950 CALL HCHAR(1,24,140,4) 
2960 CALL HCHAR(1,24,141,MEN 
) 

2970 CALL SOUND(-1,-2,6) 

2980 RETURN 

2990 CALL HCHAR(1,24,48) 

3000 GOSUB 3040 

3010 GOSUB 3250 

3020 GOTO 3310 

3030 REM SCORE PRINTEN 

3040 CALL HCHAR(1,10,140,6) 

3050 FOR AFF=1 TO LEN(STR*(S 

CORE)) 

3060 CALL HCHAR(1,9+AFF,ASC( 
SEG*(STR*(SCORE),AFF,1))) 
3070 CALL SOUND(-1,-3,5) 

3080 NEXT AFF 

3090 IF SCORE< =0 THEN 3310 
3100 IF (SCORE >4500)*(SCORE < 
5500)THEN 3110 ELSE 3220 
3110 SCORE=SCORE+2500 
3120 A=3 
3130 B=3 

3140 A$= "BONUS " &CHR* ( 140) " B 

ONUS" 8cCHR* (1 40) BONUS " fecCHR* 
(140) &c"BONUS" 

3150 GOSUB 2890 
3160 MEN=MEN+1 
3170 GOSUB 2940 
3180 GOSUB 3250 
3190 GOSUB 3250 
3200 GOSUB 3250 
3210 CALL HCHAR<3,1,140,32) 
3220 IF SCORE>=10000 THEN 37 
10 

3230 RETURN 

3240 REM ZUFALLSERZEUGUNG 

TON 

3250 TON=INT(RND#280)+220 
3260 FOR ATT=0 TO 30 STEP 2. 
5 

3270 CALL SOUND(-99,TON,ATT, 
TON+2,ATT,TON/2,ATT) 

3280 NEXT ATT 
3290 RETURN 
3300 REM SPIELENDE 
3310 FOR A=2 TO 28 
3320 CALL COLOR(1,2,7) 

3330 CALL COLOR(11,2,7) 

3340 CALL SOUND(-99,400,A-2, 
400+A*2,A,400+ A*2,A) 

3350 CALL COLOR(1,2,16) 

3360 CALL COLOR(11,5,16) 

3370 CALL SOUND(-99,400,A-2, 
400-A*2,A,400-A*2,A) 

3380 NEXT A 

3390 FOR A=0 TO 30 STEP 2.5 
3400 CALL SCREEN(7) 
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3410 CALL SOUND( -99 9 -5,A) 
3420 CALL SCREEN(16) 

3430 NEXT A 

3440 CALL SCREEN(2) 

3450 FÜR A=32 TO 1 STEP -1 
3460 CALL VCHAR(4,A,140.21) 
3470 NEXT A 

3480 CALL HCHAR(3,1,140,32) 
3490 SCORE=SCORE+150 
3500 GOSUB 3040 
3510 A=8 
3520 B=4 

3530 A*="LEIDER"&CHR$(140)&" 
VERLOREN“ 

3540 GOSUB 2890 
3550 A=10 
3560 B=4 

3570 A$=“NOCHMAL“kCHR$(l40) k 
" ? " &CHR$ (140) 6e" J " &CHR* (140) 6c 
"N" 

3580 GOSUB 2890 
3590 RESTORE 400 
3600 FOR A=1 TO 45 
3610 READ BOT 

3620 CALL SOUND(-999,BOT,0,B 
OT+2,0,BOT+4,0) 

CALL KEY(0,K,S) 

IF S=0 THEN 3650 ELSE 3 

NEXT A 
GOTO 3590 

IF (K=74)+(K=106)THEN 1 

GOSUB 3250 
CALL CLEAR 
END 

REM SPIEL 

GESCHAFFT 
FOR A=1 TO 3 
FOR B=560 TO 760 STEP 2 

CALL SOUND(-99,560,A,B, 
A,B+2,A) 

3750 NEXT B 
3760 NEXT A 
3770 CALL CLEAR 
3780 CALL SCREEN(2) 

3790 CALL CHAR(136,“7FDB6E1F 
03000000") 

3800 CALL CHAR(138,"C060C0E0 
B0D8340E") 

3810 CALL CHAR(139,"03000000 
00000000 ") 

3820 CALL CHAR(128,"0000003C 
66 FBFEBF") 

3830 CALL CHAR(129,"FF6E3C00 
00000000 ") 

3840 CALL CHAR<130,"0000003C 
6EFFFF7D") 

3850 CALL CHAR(131,"F37E3C00 
00000000 “) 


3630 

3640 

670 

3650 

3660 

3670 

050 

3680 

3690 

3700 

3710 

3720 

3730 

0 

3740 


3860 CALL CHAR(104,"00000303 
0F0F3CFC") 

3870 CALL CHAR(105,“FFFFC3C3 
00000000 "> 


3880 CALL CHAR(106,"0000C0C0 
F0F03C3F") 


3890 CALL COLOR 
3900 CALL COLOR 
3910 CALL COLOR 
3920 CALL HCHAR 
3930 CALL HCHAR 
3940 CALL HCHAR 
3950 CALL HCHAR 
3960 CALL HCHAR 
3970 CALL HCHAR 
3980 CALL HCHAR 
3990 CALL HCHAR 
4000 CALL HCHAR 
4010 CALL HCHAR 
4020 CALL HCHAR 
4030 FOR A =8 TO 
4040 CALL SOUND 
4050 CALL HCHAR 
4060 CALL HCHAR 
4070 NEXT A 
4080 FOR A=1 TO 
4090 NEXT A 
4100 ZZ=0 


(14.16.5) 

(13.11.5) 

(10.15.5) 
(1,1,140,224) 

(2.4.136) 

(2.5.138) 

(3.5.139) 

(3.20.136) 

(3.21.138) 

(4.21.139) 
(2,28,128) 

(2.29.130) 
(3,28,129) 

(3.29.131) 

24 

(-99,-7,A) 

(A,1,40,32) 

(A,32-A,32,2) 

200 


4110 FOR A=24 TO 7 STEP -1 
4120 CALL HCHAR(A,9+ZZ,122) 
4130 CALL S0UND(2,-7,4) 

4140 CALL HCHAR(A,9+ZZ,32) 
4150 CALL SOUND(2,-5,1) 

4160 Z2=ZZ+1 
4170 NEXT A 

4180 CALL COLOR(12,2,5) 

4190 CALL HCHAR(7,26,120) 
4200 CALL SOUND(2,-6,0) 

4210 FOR A=1 TO 99 
4220 NEXT A - 
4230 CALL HCHAR<7,7,104) 
4240 CALL HCHAR(7,8,105) 
4250, CALL HCHAR(7,9,106) 
4260 FOR A=0 TO 30 STEP 5 ' 

4270 CALL SOUND(-99,-5,A) 
4280 NEXT A 

4290 FOR A=26 TO .10 STEP -1 
4300 CALL SOUND(3,-7,3) 

4310 CALL HCHAR(7,A,121) 
4320 CALL SOUND(3,- 6 , 8 ) 

4330 CALL HCHAR(7,A,140) 
4340 NEXT A 

4350 CALL HCHAR( 6 , 8 ,120) 
4360 CALL SOUND<9,-5,0) 

4370 FOR A =8 TO 24 
4380 CALL SOUND(-99,-5,A> 
4390 CALL HCHAR(A,1,40,32) 
4400 CALL SOUND(-99,- 6 ,A) 
4410 NEXT A 

4420 CALL COLOR(4,2,13) 
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4430 CALL COLOR(5,2,13) 

4440 CALL COLOR(6,2,13) 

4450 CALL COLOR(7,2,13) 

4460 CALL COLOR(8,2,13) 

4470 A=12 
4480 B=4 

4490 A$="G(E(S(C(H(A(F(F(T H 

4500 60SUB 2890 
4510 A=i4 
4520 B=4 

4530 A*="NOCH(EIN(SPIEL(?(J( 
N" 

4540 GOSUB 2890 

4550 DATA 220,294,294,330,37 

0,294,370,330,220,294,294,33 

0,370,292,277,277 

4560 DATA 220,294,294,330,37 

0,392,370,330,294,277,220,24 

7,277,294,294 

4570 RESTORE 4550 

4580 FOR A=1 TO 31 

4590 CALL COLOR(10,16,5) 

4600 READ B 

4610 CALL KEY(0,K,S) 

4620 IF S=0 THEN 4630 ELSE 4 
670 

4630 CALL COLOR(10,15,5) 

4640 CALL SOUND(-550,B,0,B+2 

,0,E+2,0) 

4650 NEXT A 

4660 GOTO 4570 

4670 IF <K=74)+(K=106)THEN 1 

00 

4680 CALL CLEAR 
4690 END 


_ BÖRSE 

Tl-Peripherie zu kaufen gesucht, auch Z80 bzw. 
80-Zeich.-Karte. Johann Schmitz, Postfach 
900771, 5 Köln 90 


Verk.: 32k-Card 300, P-Code-Card + Fill / ED / 
COM ass. / Lnk / Uti 700, Disk-Cont + Dos 80 + 
Manager + 2 Kabel 350,-06441/74830 


Suche preiswert TI-Modul Schach, Minimem, 
32K-Erw. seitlich ansteckbar. A. Madcr, Tel. 069/ 
78 37 25, ab 18 Uhr 


Kaufe TI 99/4A-Konsole oder Konsole mit Zu¬ 
behör. H. Ludwig, An Den Tannen 1,6390 
Usingen 1 (06081/289 7) 

Suche Tauschpartner für Software in TI + Ex 
Liste an: Andreas Hoyer, Tulpenweg 7, 6052 
Mühlheim 


Verk. Software in TI+Ex ab 1 DM. Suche TI- 
Special II und Farb-Monitor 06108/69766 


Verk. TI 99/4A+XBasic + P-Box + Discontrl. 

+ Laufwerk + 32K + E/A-Mod +.Spech-Synth. 

+ Grafik-Tableau + Cas.-Kabel + Deutsches E/A 
Buch + 10 Disk. + Joyst. + 50 Prg. + Literatur 
VB 2200 DM. Andreas Hoyer, Tulpenweg 7, 
6052 Mühlheim, Tel. 06108/69766 


10 REM******************** 

11 REM* * 

12 REM* COPYRIGHT-ZEICHEN* 

13 REM* Copyright by * 

14 REM* Matthias Or-f * 

15 REM* ' * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 3618 Bytes * 

25 REM******************** 

26 REM 

270 CALL CLEAR 

280 CALL CHAR(48,"0038444C54 
644438") 

290 CALL CHAR(79,"0038444444 
444438") 

300 CALL CHAR(97,"3C4299A1A1 
99423C") 

310 CALL CHAR (98,"3C4299A199 
423C00") 

320 CALL CHAR(99,"FF81B9A1A1 
B981FF") 

330 CALL CHAR(100,"FF8199A1A 
19981FF") 

340 CALL CHAR(101,"3C4299919 
199423C") 

350 CALL CHAR(102,"3C4218202 
018423C") 

360 CALL CHAR(103,"004299A1A 
1994200") 

370 CALL CHAR(104,"001C20202 
0201C00") 

380 CALL CHAR(105,"003C20202 
0203C00") 

390 CALL CHAR(106,"E781B9A1A 
1B981E7") 

400 CALL CHAR(107,"E78199A1A 
1A199E7") 

410 FOR 1=1 TO 24 

420 PRINT 

430 NEXT I 

440 FOR E=1 TO 14 

450 CALL COLOR(E,16,11) 

460 NEXT E 

470 CALL SCREEN(16) 

480 PRINT ". COPYRI 

GHT" : : M .ZEICHE 

N": :::::::::::: 


490 X=12 
500 Y=9 

510 T$="MARO-SOFT" 

520 GOSUB 2090 
530 X=14 
540 Y=9 

550 T$="BAUNATAL" 

560 GOSUB 2090 

570 CALL COLOR(9,5,11) 

580 CALL COLOR(10,5,11) 
















590 FOR 1=107 TO 97 STEP -1 
600 CALL HCHAR(12,8,I) 

610 FOR A=1 TO 130 
620 NEXT A 
630 NEXT I 
640 FOR 1=1 TO 2 
650 FOR W=200 TO 2000 STEP 3 
0 

660 CALL SOUND(-50,W,0) 

670 NEXT W 

680 FOR W=2000 TO 200 STEP - 
20 

690 CALL SOUND(-50,W,0) 

700 NEXT W 

710 NEXT I 

720 FOR W=0 TO 30 STEP 1 

730 CALL SOUND(-200,200,W) 
740 NEXT W 
750 X=18 
760 Y=3 

770 T$="SIE HABEN DIE QUAL D 
ER" 

780 GOSUB 2090 
790 X=20 
800 Y=2 

810 T$="WAHL BEI DEN C0PY-2E 
ICHEN" 

820 GOSUB 2090 
830 FOR 1=1 TO 600 
840 NEXT I 
850 FOR E=i TO 7 
860 FOR W=2 TO 16 
870 CALL SCREEN(W) 

880 NEXT W 
890 NEXT E 
900 CALL CLEAR 
910 FOR E=1 TO 14 
920 CALL SCREEN(11) 

930 CALL COLOR(E,7,11) 

940 NEXT E 

950 CALL COLOR(9,2,11) 

960 CALL COLOR(10,2,11) 

970 PRINT M ...a b c d e i g 
h i j ' k": : :l 2 3 4 5 
6 7 8 9 10 11“: : : : 

980 PRINT “WAEHLEN SIE JETZT 
BITTE IHR“: :"...COPYRIGHT¬ 
ZEICHEN UND": :•• IHR TI-99/4 
A HOMECOMPUTER": : 

990 PRINT "SCHREIBT IHNEN DE 
N CODE ZUR“: :"VERWENDUNG IN 

IHREM EIGENEN“: : “.. .P 

ROGRAMM !": : : 

1000 INPUT “IHRE WAHL?..<1-1 
1) . . “ : W 

1010 IF W=1 THEN 1150 

1020 IF W=2 THEN 1210 

1030 IF W=3 THEN 1270 

1040 IF W=4 THEN 1330 

1050 IF W=5 THEN 1390 

1060 IF W=6 THEN 1450 


1070 IF W=7 THEN 1510 
1080 IF W =8 THEN 1570 
1090 IF W=9 THEN 1630 
1100 IF W=10 THEN 1690 
1110 IF W=11 THEN 1750 
1120 CALL CLEAR 
1130 PRINT “SIE SOLLEN DOCH 
EINE ZAHL“: :"ZWISCHEN ""1" " 

UND ““11.: :"WAEHLEN !“: 

• ■ • 

• • • 

1140 GOTO 1000 
1150 CALL CLEAR 
1160 X=10 
1170 Y=2 

1180 T*="a = ""3C4299A1A1994 
23C " " " 

1190 GOSUB 2090 
1200 GOTO 1810 
1210 CALL CLEAR 
1220 X=10 
1230 Y=2 

1240 T$=" b = " "3C4299A199423 

£ H H n 

1250 GOSUB 2090 
1260 GOTO 1810 
1270 CALL CLEAR 
1280 X=10 
1290 Y=2 

1300 T$="c = ""FF81B9A1A1B98 
1FF " “ " 

1310 GOSUB 2090 
1320 GOTO 1810 
1330 CALL CLEAR 
1340 X=10 
1350 Y=2 

1360 T*="d = ""FF8199A1A1998 
1FF * “ “ 

1370 GOSUB 2090 
1380 GOTO 1810 
1390 CALL CLEAR - 
1400 X=10 
1410 Y=2 

1420 T$=“e = “"3C42999191994 
23C“ " “ 

1430 GOSUB 2090 
1440 GOTO 1810 
1450 CALL CLEAR 
1460 X=10 
1470 Y=2 

1480 T*="+ = ““3C42182020184 
23C" “ ■ 

1490 GOSUB 2090 
1500 GOTO 1810 
1510 CALL CLEAR 
1520 X=10 
1530 Y=2 

1540 T$="g = “"004299A1A1994 
2 “ “ " 

1550 GOSUB 2090 
1560 GOTO 1810 
1570 CALL CLEAR 
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1580 X=10 
1590 Y=2 

1600 T*="h = ""001C202020201 

C « « H 

1610 GOSUB 2090 
1620 GOTO 1810 
1630 CALL CLEAR 
1640 X=10 
1650 Y=2 

1660 T$="i = ""003C202020203 

Q II II M 

1670 GOSUB 2090 
1680 GOTO 1810 
1690 CALL CLEAR 
1700 X=10 
1710 Y=2 

1720 T*="j = ""E781B9A1A1B98 

1E7"" " 

1730 GOSUB 2090 
1740 GOTO 1810 
1750 CALL CLEAR 
1760 X=10 
1770 Y=2 

1780 T$="U = ""E78199A1A1A19 
9E7" 11 11 

1790 GOSUB 2090 
1800 GOTO 1810 
1810 X=18 
1820 Y=2 

1830 T$="WENN FERTIG," 

1840 GOSUB 2090 
1850 X=20 
1860 Y=2 

1870 T$="TASTE DRUECKEN" 

1880 GOSUB 2090 
1890 CALL KEY(0,K,S) 

1900 IF S=0 THEN 1890 
1910 CALL HCHAR<16,1,32,320) 
1920 X= 18 
1930 Y=2 

1940 T$="MOECHTEN SIE NOCH“ 
1950 GOSUB 2090 
1960 X=20 
1970 Y=2 

1980 T$="MEHR CODE’S SEHEN ? 


G*(T*,W,1))) 
2110 Y=Y+1 
2120 NEXT W 
2130 RETURN 


Die nächste 
TI REVUE erscheint 
am 28 . Oktober 


BÖRSE 


Verkaufe TI99/4A + 32 k + Centr. + Recorder + 
Rabe! - Ext.-Basic + Literat. + Listings + Pro- 
gramm-Cass. + Mini-roboter mit Steuerungs¬ 
programm + 2 Joysticks + Modul ,,Car Wars“ 
Tel.: 0781 / 75138 


HILFE! Suche ganzes TI-99/4A Gehäuse für 
ca. 15 bis 20 DM. Angebote an Michael v.d. 
Mühlen. Tel. 02103/44144 


Verkaufe Original TI ext. Basic Modul und Sanyo 
Monitor mit Kabel (grün/28 cm) im Raum 
Stuttgart für DM 150,— Bzw. 300,—. 

Tel. 07 1 1 /7483 1 8 nach 1 8 Uhr. 


Verkaufe Attack-Modul für 20 DM !!! 
Carsten Simms, Oldauer Heuweg 66, 
3107 Hambühren 2. Tel. 05084/3578 


Verkaufe Drucker Star DP515 DIN A3, Serielle + 
Paralelle Schnittstelle. Neupreis 2000 
Verk.Preis: 600,- DM 

Wie funktioniert Spracheing. MBX ohne Module, 
wer kann mir helfen? (Gegenleistung) 

Tel.: 07175/5031 (9-16 Uhr) 


Verk. o. tausche Lern- und Spielmodule (Othello 
u.a.) u. Apesoft Grafikprog. (mit 40 Grafik¬ 
befehlen!) Billig! Tel. 0561/516790 


Software-Verkauf für 99/4A: Module, X-Bas., 
Kass. und Bücher. Tel. 04102-64889 


Suche gute Assembler Prg. gegen Tausch. Suche 
Kontakte mit Akkustikkoppler-User. 

Tel. 07175/5031 


1990 GOSUB 2090 
2000 INPUT M ":n$ 

2010 IF N$="J" THEN 900 
2020 IF N$="N" THEN 2030 
2030 CALL CLEAR 
2040 PRINT ".- AUF WIEDE 

rsehen 


Tausche TI99/4A-Module Alpiner, Carwars, 
Othello, Tl-Invaders gegen Pal-Modulator f. 
UHF-Kanal 36 - Tel. 05205/7405 


Verkaufe: TI99/4A + EXT.-Basic + Handbücher 
+ Joysticks + Kass. Rec.-Kabel (1) + Literatur 
+ Software, alles original TI! UB 450,— DM 
Michael Habermann, Tel.: 06842/514 83 nach¬ 
mittags. 


2050 FOR 1=1 TO 500 
2060 NEXT I 

2070 print ::::::::: 

: : : : 

2080 END 

2090 FOR W=1 TO LEN <T$) 

2100 CALL HCHAR(X,Y+2,ASC(SE 


Tausche od. verkaufe: Gassetten HiFi-Deck 
NAKAMICHI DRAGON (Referenz bei Stereo¬ 
play u. Stereo) m. folgd. Ausstattg. = Revers, 
Einmesscomputer, autom. Azimuth-Regelung 
usw. Neupr. DM 4150,— im Tausch gegen kpl. 
ausgest. TI-99/4A Computer-Anlage od. für 
DM 3600,- 

R. Göhring, Alvesloher Str. 21,2358 Kaltenkirchen 
04191/7305 ab 15.10.85 
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10 REh&******************* 

11 REMf-CASTL.E o i 81 DOOMS* 

12 RErtf . . * 

13 REW Copyright by * 

14 REMf- Gerhard Stegmann * 

15 REt** * 

17 REMfBenoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung *' 

24 REM* 9070 Bytes •* 

25 REM******************** 

26 REM 

40 CALL CLEAR 
50 CALL SCREEN(12) 

60 PRINT "****************** 
********" 

70 PRINT H * THE CASTLE OF 81 
ROGMS *..*(C)BY G.STEGMANN 

&.*..*GRAPHIK S . BURKERT 

1/84..*" 

80 PRINT •'****************** 
********" 

90 print 

9 0 0 9 9 1 

100 PRINT "SPIELANLEITUNG ?(J 
/N> " 

110 CALL KEY(0,K,S) 

120 IF S=0 THEN 110 
130 IF K<>74 THEN 540 
140 CALL CLEAR 

150 PRINT "SIE BEFINDEN SICH 
IN EINEM":"SCHLOSS MIT 81 R 
AEUMEN": :"DIESE RAEUME BEIN 

HALTEN" 

160 PRINT "VERSCHIEDENE GEGE 
NSTAENDE": :"ES KOENNEN JEWE 
ILS 2":"GE6ENSTAENDE VON EIN 
ER ART":"MIT DER TASTE’N’AUF 

_ i: 

170 PRINT "GENOMMEN WERDEN": 

:"EIN TIEFER TON NACH DEM " 

:“’AKTIONSPIEPS’ SIGNALISIER 
T" 

180 PRINT "DASS NICHTS MEHR 
AUFGENOMMEN":"WERDEN KANN." 
190 PRINT : :"BITTE EINE TAS 

TE DRUECKEN" 

200 CALL KEY(0,K,S) 

210 IF S=0 THEN 200 
220 CALL CLEAR 

230 PRINT "DIE BIBEL SCHUET2 
T SIE":"VOR GEISTERN,DIE IHN 
EN":"MANCHMAL BEGEGNEN" 

240 PRINT "DIE PILLEN SCHUET 
ZEN SIE VOR":"DEM’BURGVIRUS’ 
DER SIE ":"VON ZEIT ZU ZEIT 
INFIZIERT“ 

250 PRINT "KELCHE UND TRUHEN 
KOENNEN ":"SIE SICH NEHMEN, 
SOVIEL SIE ":"WOLLEN" 


260 PRINT : :"BITTE EINE TAS 
TE DRUECKEN" 

270 CALL KEY(0,K,S) 

280 IF S=0 THEN 270 
290 CALL CLEAR. 

300 PRINT "** DIE PUMKTE';ERT 
EILUNG **"; : 

310 PRINT "PUNKTE,I..GEGENS¬ 
AND" 

320 PRINT “- 

__ H 

330 PRINT ".I" 

240 PRINT 60...I..TRUHE" 
350 PRINT "...2...I..KELCH" 
360 PRINT ",..2...I..PILLE" 
370 PRINT ..2...I..BIBEL" 

3e0 PRINT ". X" 

390 PPIN T : :"JEDER SCHRITT 

ODE* JFDF TAT«: :"KOSTET SIE 
2 FNFRGIE "EINHEIT EN" : : 

DER KELCH BRINGT 10" 

400 PRINT "ENERGIEEINHEITEN 
ZURUECK": :"BITTE EINE TASTE 
DRUECKEN" 

410 CALL KEY(0,K,S) 

420 IF S=0 THEN 410 
430 CALL CLEAR 

440 PRINT "....** DIE STEUER¬ 
UNG **": : 

450 PRINT ".,,.,...V(VORWAER 
TS) " 

460 PRINT "L(LINKS).. 

...R(RECHTS)" 

470 PRINT .Z (ZURUECK 

) " 

480 PRINT : :"_N(GEGEM3TA 

ND AUFNEHMEN)": :"DER ’HINWE 
IS’ ERINNERT";"SIE DARAN,DAS 
S DER AUSGANG" 

490 PRINT "IN EINEM DER ANGR 
ENZENDEN":"RAEUME IST.SIE MU 
ESSEN ":"IHN DANN NUR NOCH F 
INDEN" 

500 PRINT "ALLES KLAR?(J/N)" * 
510 CALL KEY(0,K,S) 

520 IF S=0 THEN 510 
530 IF K< >74 THEN 40 
540 CALL CLEAR 
550 DIM RAU(9,9) 

560 ENE=99 
570 PU=0 

580 REM ** AUFBAU DER RAEUME 
** 

590 FÜR RAUM=i TO 9 
600 LET ZAHL(RAUM)=0 
610 FOR RAUM2“3 TO 9 
620 RANDOMIZE 

630 LET RAU(RAUM,RAÜM2)=INT( 
9*RND41) 

640 IF RAU (RAUM, RAUMS?)* 5 * THE 
N 620 
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650 LET WE(RAUM,RAUM2)=RAU(R 
AUM,RAUM2) 

660 NEXT RAUM2 
670 NEXT RAUM 
680 RANDOMIZE 
690 HH=INT<9*RND+1> 

700 RANDOMIZE 
710 BH=INT(9*RND+1) 

720 RAU(HH,3H)=2 
730 GOSUB 3080 
740 GOSUB 2710 
750 CALL CLEAR 
760 CALL SCREEN < 2) 

770 FÜR C=2 TO 8 
780 CALL COLOR(C,16,2) 

790 NEXT C 

800 FOR Y=1 TO 1500 

810 NEXT Y 

820 RANDOMIZE 

830 HO=INT (9-Jf-RND + l ; 

840 RANDOMIZE 
850 BR=INT(?*RND+1) 

860 GOSUB 890 

870 GOSUB 960 

880 GOTO 1340 

890 CALL HCHAR(22,1,32,32) 

900 CALL SCREEN(2) 

910 FOR F=14 TO 16 
920 CALL COLOR (F , 2,2) 

930 NEXT F 
940 GOTO 3360 
950 RETURN 

960 CALL VCHAR(1,4,143,18) 
970 CALL VCHAR {*,25,148,13) 
980 CALL HCHAR <.13,4, 148,21) 
990 FOR H-1 TO 6 
1000 B~ 4 + H 

1010 CALL HCHAR(H,B,137- 
1020 NEXT H 

1030 CALL HCHAR(6,11,133,8) 
1040 FOR H=1 T Ü 6 
1050 B-25-H 

1060 CALL HCHAR(H,B,136) 

1070 NEXT H 

1080 CALL VCHAR<7,19,139,9) 
1090 CALL UCHAR(7,10,140,9) 
1100 CALL VCHAR<9,12,140,6) 
1110 CALL VCHAR(9,17,129,6) 
1120 CALL HCHAR (8,13,138,4) 
1130 CALL HCHAR(15,11,1385 
1140 CALL HCHAR(15,18,138) 
1150 CALL HCHAR<15,12,150) 
1160 CALL HCHAR(15,17,149) 
1170 CALL HCHAR(16,19,137) 
1180 CALL HCHAR(16,10,136) 
1190 CALL HCHAR(16,20,141) 
1200 CALL HCHAR(16,9,141) 
1210 CALL VCHAR(9,9,143,7) 
1220 CALL VCHAR<9,20,143,7) 
1230 CALL HCHAR(8,20,142) 
1240 CALL HCHAR(3,9,142) 


1250 CALL HCHAR(7,9,146) 

1260 CALL HCHAR(7,20,144) 
1270 CALL HCHAR(7,21,145) 
1280 CALL HCHAR(6,21,151) 
1290 CALL VCHAR(8,21,140,10) 
1300 CALL HCHAR(7,8,147) 

1310 CALL HCHAR(6,8,152) 

1320 CALL VCHAR(8,8,139,10) 

1330 GOSUB 2580 

1340 START=RAU(HO,BR) 

1350 ON START GOSUB 2020,232 
0,2140,2080,2140,2200,2200,2 
260,2020 

1360 CALL SOUND(100,500,0,60 
0,0) 

1370 CALL SOUND(100,300,0,40 
0,0) 

1380 IF UE(HO,BR)<>0 THEN 14 
10 

1390 UERT =1 
1400 G$="NICHTS" 

1410 GOSUB 3^40 

1420 CALL HCHAR(16,17,WERT 1) 

1430 F*="SIE FINDEN: H 

1440 for J = i jo i.EN(F$) 

1450 CALL HCHAR(20,J+3,A3C(3 
EG*(F$,J,1))) 

1460 NEXT J 

1470 IF HAOHÜ THEN 1490 
1480 IF BA=PR THEN 2910 
1490 FOR J=1 TO LEN(G$) 

1500 CALL HCHAR(22,J+3,A3C(S 
EGtMGfc,.! , 1 ) ) > 

1510 NEXT J 

1520 CALL KEY (.0, K , S) 

1530 CALL SOUND(-100,-5,24) 
1540 IF S=0 THEN 1520. 

1550 CALL SOUND(100,500,0,60 
0,0) 

1560 ST*=CHR*(K) 

1570 F.NE=ENE-1 
1580 IF ENE >0 THEN 1620 
1590 CALL CLEAR 
1600 PRINT "TUT MIR LEID": : 
"SIE HABEN DIE GANZE ENERGIE 
VERBRAUCHT": " PUNKTE : " ,* PU: : 
"NOCHMAL?(I) " / 

1610 GOTO 3490 

1620 IF ST$=>L" THEN 1700 

1630 IF ST*='"R" THEN 1730 

1640 IF ST*="V" THEN 1760 

1650 IF ST£="Z" THEN 1670 

1660 IF ST$<>"N" THEN 1520 E 

LSE 1790 

1670 GOSUB 890 

1680 HO=HO+1 

1690 GOTO 1330 

1700 BR=BR-1 

1710 GOSUB 390 

1720 GOTO 1330 

1730 BR=BR+i 


1740 GOSUB 890 
1750 GOTO 1330 , 

1760 HOfHO-1 
1770 GOSUB 890 
1780 GOTO 1330 
1790 IF WERT=1 THEN 1830 
1800 IF WERT = 6 THEN 1520 
1810 IF WE<HO,BR)=0 THEN 183 
0 . 

1820 IF ZAHL(WERT)<2 THEN IS 
50 

1830 CALL SOUND(1000,110,0) 
1840 GOTO 1520 
1850 IF WERT 1 = 128 THEN 1980 
1860 IF WERT 1 = 120 THEN 1950 
1870 ZAHL(WERT)=ZAHL(WERT)+l 
1880 WE(HO,BR)=0 
1890 CALL HCHAR(16,17,32) 
1900 FÜR Y=600 TO 700 STEP 2 
0 

1910 CALL SOUND(-100,Y,0,Y+2 
0 , 0 ) 

1920 NEXT Y 
1930 PU=PU.+2 
1940 GOTO 1520 
1950 PU=PU+60 
1960 WE(HO,BR)=0 
1970 GOTO 1890 
1980 ENE=ENEfl0 
1990 WE(HO,BR)=0 
2000 PU=PU+2 
2010 GOTO 1890 
2020 G$="NICHTS" 

2030 WERT = 1 
2040 0=16 
2050 H=1 
2060 GOSUB 2380 
2070 RETURN 

2080 G$=“EINEN KELCH MIT ENE 
RGIE" 

2090 WERT=2 
2100 0=9 . 

2110 H=15 
2120 GOSUB 2380 
2130 RETURN 

2140 G$="EINE BIBEL GEGEN GE 
ISTER" 

2150 WERT=3 
2160 0=2 
2170 H=15 
2180 GOSUB 2380 
2190 RETURN 

2200 G$="EINE PILLE GEGEN IN 
FEKTION" 

2210 WERT=4 

2220 0=8 

2230 H=5 

2240 GOSUB 2380 

2250 RETURN 

2260 6$=”EINE TRUHE MIT GOLD 


2270 WERT=5 
2280 0=2 
2290 H=7 
2300 GOSUB 2380 
2310 RETURN 

2320 G£="EINEN HINWEIS" ' 

2330 WERT -6 

2340 0=7 

2350 H=12 

2360 GOSUB 2380 

2370 RETURN 

2380 FOR Y=14 TD 16 

2390 CALL COLOR(Y,0,H) 

2400 NEXT Y 

2410 CALL SCREEN(H) 

2420 GOSUB 2440 
2430 RETURN 
2440 EN$="ENERGIE" 

2450 FOR E=1 10 LEM(EN$) 

2460 CALL HCHAR(19,E+3,ASC<£ 
EG$(EN4,E,1))) 

2470 NEXT E 

2480 FOR E=! TO LEN(STR?(ENE 
) ) 

2490 CALL HCHAR(19,11+E,ASC( 
SEG4(STR$(ENE),E,1))) 

2500 NEXT E 

2510 FOR P=1 TÜ .6 

2520 CALL HCHAR(19,16+P,ASC( 

SEGt (“PUNKTE",P,1))> 

2530 NEXT P 

2540 ~0R F-l TO LEN(STR$(PU) 
) 

2550 CALL HCHAR<19,24 4P,ASC( 
SEG*(STR$(PU>,P, 1))) 

2560 NEXT P 
2570 RETURN 

2580 IF HO=0 THEN 2630 

2590 IP Hö=l0 THEN 2650 

2600 IF BR=10 THEN 2670 

2610 IF BP=0 THEN 2690 

2620 RETURN 

2630 H0=9 

2640 RETURN 

2650 H0=1 

2660 RETURN 

2670 BR=1 

2680 RETURN 

2690 BR=9 

2700 RETURN 

2710 RANDOMIZE 

2720 IF RND >.6 THEN 2820 

2730 IP RND).5 THEN 27S0 

2740 KA=HH 

2750 BA=BH+1 

2760 IF BA>9 THEN 2710 - 

2770 RETURN 

2790 KA=HH 

2790 BA=BH~1 

2800 IF BA<1 THEN 2710 

2810 RETURN 
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2820 IF RND>.8 THEN 2890 

2830 HA=HH-1 

2840 IF HA<1 THEN 2710 

2850 BA=BH 

2860 RETURN 

2870 HA=HH+1 

2880 IF HA>9 THEN 2710 

2890 BA=BH 

2900 RETURN 

2910 CALL CLEAR 

2920 CALL SCREEN(15) 

2930 PRINT "GRATULIERE!!": : 
"DU HAST DEN AUSGANG GEFUNDE 
N":"PUNKTE:";PU: :"BONUS:";E 
NE*100: : "GESAMT: ";PU+ENE*10 
0 

2940 ZAHL(4)=0 
2950 ZAHL (3)=0 
2960 RESTORE 3060 
2970 FOR SOUND=1 TO 7 
2980 READ D,F 

2990 CALL SOUND(D,F,0,F+1,0) 

3000 NEXT SOUND 

3010 PRINT "NOCHMAL?<J)" 

3020 CALL KEY(0,K,S) 

3030 IF S=0 THEN 3.020 
3040 IF K=74 THEN 540 
3050 END 

3060 DATA -100,131,-100,123, 
-100,123,-100,165,-100,147,1 
00,175,1000,131 
3070 REM *# ZEICHENDEFINITIO 
N ** 

3080 CALL CHAR(96,"000000307 
87830") 

3090 CALL CHAR<104,"7C6C446C 
6C6C7C7C“) 

3100 CALL CHAR(112,"18181818 
13001313") 

3110 CALL CHAR(120,"00007EFF 
3iE7FFFF") 

3120 CALL CHAR<128,"4444447C 
1010107C") 

3130 CALL CHAR(136,"01020408 
10204030") 

3140 CALL CHAR(137,"80402010 
03040201") 

3150 CALL CHAR<138,"00000000 
000000FF") 

3160 CALL CHAR(139,"80808080 
8080303") 

3170 CALL CHAR(140,“01010101 
01010101 ") 

3180 CALL CHAR<141,"81818181 
81S181FF«) 

3190 CALL CHAR(142,“FF818181 
81818181") 

3200 CALL CHAR(143, 
81818181") 

3210 CALL CHAR(144,"01020408 
10204031") 


3220 CALL CHAR(145,"03050911 
21418101") 

3230 CALL CHAR(146,"80402010 
08040281") 

3240 CALL CHAR(147,"C0A09088 
84828180") 

3250 CALL CHAR(148,"FFFFFFFF 
FFFFFFFF") 

3260 CALL CHAR(149,"80808080 
308080FF") 

3270 CALL CHAR(150,"01010101 
010101FF") 

3280 CALL CHAR(151,"01030509 
11214181" ) 

3290 CALL CHAR(152,"80C0A090 
88848281") 

3300 CALL COLOR(9,16,1) 

3310 CALL COLOR(10,2,1) 

3320 CALL COLOR(11,13,1) 

3330 CALL CO!. OR (12, 16, 1 ) 

3340 CALL COLOR(13,5,1) 

3350 RETURN 

3360 RANDOMIZE 

3370 REM ** GEFAHREN *# 

3380 IF RND<.79 THEN 950 
3390 IF RND>=.8123 THEN 3600 
3400 PRINT "IHNEN BEGEGNET E 
IN GEIST" 

3410 IF ZAHL (3X1 THEN 3480 
3420 PRINT :"ABER SIE HABEN 
EINE BIBEL" 

3430 FOR H=1 TO 500 
3440 NEXT H 
3450 CALL CLEAR 
3460 ZAHL(3)=ZAHL(3)-1 
3470 GOTO 960 

3480 PRINT :"UND DA SIE KEIN 
E BIBEL" : "MEHR HABEN, VIERDEN 
SIE VON":"IHM GETOETET": :"N 
OCHMAL?(J)":"PUNKTE:"JPU 
3490 RESTORE 3730 
3500 FÜR TM=1 TO 11 
3510 READ DAUER,FREQUENZ 
3520 CALL SOUND(DAUER,FREQUE 
NZ,0,FREQUENZ+1,0) 

3530 NEXT TM 

3540 CALL KEY(0,K,S) 

3550 IF S=0 THEN 3540 
3560 ZAHL(3)=0 
3570 ZAHL(4)=0 
3580 IF K=74 THEN 540 
3590 END 

3600 PRINT "SIE WERDEN VON E 
INEM VIRUS ":"INFIZIERT" 

3610 IF ZAHL (4X1 THEN 3680 
3620 PRINT :"HABEN ABER NOCH 
EINE":"PILLE DIE SIE RETTET 

II 

3630 ZAHL(4)=ZAHL(4)-1 
3640 FOR W=1 TO 500 
3650 NEXT W 
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3660 CAl.L CLEAR 
3670 GOTO 960 

3680 PRINT :"UND WERDEN,DA S 
IE KEINE“: * : P1LLE MEHR HABE!!, 
VON IHM 11 ; " 6ET0ETET : u PUNKT E 
: “; PU 

3690 PRINT : :"NOCHMALT(T}': 

3700 ZAHL(4)=0 
3710 ZAHL(3)=0 
3720 GOTO 3490 

3720 DATA 500,196,500,196,10 
0 j196,500.196, 50G ,233,100,22 
0 .250,220,250,196,250,196,25 
0.185,1000,196 

3740 ÜN WERT GOTO 3750,3770, 

3790,3810,3820,3850 

3750 WERT1=32 

2760 RETURN 

3770 WERT1 = I 2£ 

3780 RETURN 
3790 WERT 1=104 
3800 RETURN 
3810 WERT 1=96 
3820 RETURN 
3830 WERT 1=120 
3S40 RETURN 
3850 WERT 1=1.1 2 
3860 RtTLJRN 



Hardware: 

Grafik-Tablett 

CPS 99 32K RAM. 2*RS-232, l*Centr., 
Laufwerk + Controller 16 

Disklaufwerk TEAC 80 o. 40 Track 5 
32 K e>: t. 2 

32 K *■ Centr. e>:t. 3 

Power Joystick 2St. f. TI 
Akustikkoppler m. FTZ 2 

Umrüstsatz Diskkontr. DS DD 80T. 1 

Mini Assembler m. dtsch. Anl. 1 

Software: 

Mini Memory M 2 

Te>:tgraf D 

Freddy D 


98.- 

DM 

. . 


1698.- 

DM 

598.- 

DM 

295. - 

DM 

395. - 

DM 

65.- 

DM 

289. - 

DM 

155. - 

DM 

149.- 

DM 

295. - 

DM 

79.- 

DM 

59.- 

DM 


Fordern Sie unsere kostenlose Preisliste an 
oder kommen Sie mal vorbei 

Öffnungszeiten: Mo—Fr 10—18h Sa 9—13h 


100 ? WZ******************* 


110 ! * * 

120 i * ECARTE * 

130 ! * - Copyrlght by * 

140 ! tfChrist iar? t-eichwann 

150 ! '+ » * 

160 ! Penoetigte Gc-eete ■* 
170 ! * TI99/4Ä Konsole * 

180 !. -K Ext. Basic * 
190 ! M * 

200 ! T 8 p e i c. herbp] e <3 u r, g 4 

210 ‘ 8665 Bytes ' * 

220 ' v 6*?: •* 1 ** -*-y ** « ** *,* v . v i *i 

225 ! 

230 RANDOMIZE 
240 6=1 NT (RND-X2 ) + 1 


250 DI hl K ( 2,5) , KF (4,8 ' ,S(32> 
, P (2) 

260 CALL VORBEREITUNGiG) 

270 KFL=0 
280 FOR LI=3 TO 4 
290 FOR L2= 1 TO 8 
300 KF (LI ,L2)=-1 
310 NEXT L2 
320 NEXT LI 
330 FOR KT= 3 TO 3 2 
340 KN 1=1 NT < RND*4 + 1) 

350 K N 2 = IMT( R ND*Sf1 ) 

360 IF KF (KNJ ,KN2)=0 THEN 34 
fi 

370 S(KT)=10*KN1+KN2 
380 KF ( KN3,KN2 ) =0 
390 NEXT KT 
400 2=32 

410 FOR KT = 1 TO 5 

420 FOR SP=3-6 TO G STEP (<G 

< 3-G)+.51*2 

430 K(SP,KT)=S<Z) 

440 Z=Z-1 

450 CALL KARTE<-<SP=1)*S<Z+i 
),5*(KT~i)+l,5+6*SP) 

460 NEXT SP 
470 NEXT KT 
480 TK=S(2) 

490 T=INT(TK/10) 

500 IF TK-T*10=3 THEN P(G)=P 
(6)4-1 :: kfl =-x :: call bild 

SCHIRM CG, PO . 0 , 0 , 6 ) 

510 CALL KARTE <TK,3,14) 

520 CALL KARTE(0,8,14) 

530 FÜR SZ=1 TO 21 
540 IF INT(S(SZ)/10)=T THEN 
S<SZ)=S(SZ)+100 
550 NEXT SZ 
560 AZ=32 
570 SZ=23 
580 FÜR SF= 3 TD 2 
590 FOR 1=1 TO 5 
600 IF T=INT(K(SP,I)/10)THEN 
K(SP,I)=K(SP,I)+100 
610 NEXT I 
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620 NEXT SP 

630 CALL SORTIER(K (, ) ) 

640 FOR 1=1 TO 5 

650 CALL KARTE<K<1,I),(I-l)* 

5+1,11) 

660 WEXT I 

670 M,ST2(1),STZ(2 > =£ 

680 IF G=i THEN CALL SPIEL<T 
,P ( > ,K< , ) ,KFL,M> I : M=M+(M=-i 
):: CALL BILDSCHIRM(0,P(),0, 
1-M,G) 

690 IF M=-3 THEW GOTO 680 
700 IF M THEN SP=2 :: GOTO 9 
30 

710 CALL KEY(0,M,Z):: IF Z=0 
THEN 710 

720 IF !i=65 AND K(l,l)=108 + T 
*10 AMD NOT KFL THEN P(1)=P( 
0+1 :: KFL = NO T KFL :: CALL 

BILDSCHIRM(0,P< > .4,-1,G>: : G 
OTO 710 

730 IF W=83 THEN SF= l :: CAL 
L BILDSCHIRM(0,P O,3+(G=1),- 
1,3):: GOTO 930 
740 IF ii' >75 THEN 710 
750 IF 3=2 THEN CALL BILD3CH 
3RM(0,P<),1,-1,G>:: CALL SPI 
EL(T,P(),K(,),KFL,M):: IF M 
THEN SP=2 :: CALL BILDSCHIRM 
(0,PO,-1,2,6):: GOTO 930 
760 DISPLAY AT (12, (G-0*21 + 1 
)SIZE(7):"WIEVIEL" 

770 IF G=2 THEN CALL KEY(0,A 
,£T! : : IF ST<1 OF: A<48 DR A> 
53 THEN 770 ELSE A=VAL(CHR$( 
A)):: GOTO 790 
780 CALL AUSTAUSCH <K(,),A) 
790 DISPLAY AT(12,<G-2)*-2i+ 

1)SIZE(7):A 

800 CM G GOSUB 840,880 
310 IF G=1 THEM CALL KEY(0,A 
,ST>:: IF ST<1 OR A<48 OR A> 
53 THEN 810 ELSE A=VAL(CHR*( 
A) ) 

820 OM 6 GOSUB 830,340 
830 CALL VCHARO , 11,31,24) : : 

CALL KARTE<0,13,14):: GOTO 
630 

940 FOR L=1 TO 5 

850 IF SZ=0 THEM CALL KARTE( 

-1,3,14):: RETURN 

860 TF K(2,L)<100 THEN S(AZ) 

=K(2,L):: AZ=AZ-1 :: K(2,L)= 

S(S2):: sz=sz-i 

870 NEXT L :: RETURN 

880 FOR L=1 TO A 

890 IF SZ=0 THEN CALL KARTE( 

-1,8,14):: RETURN 

900 CALL SOUND<100,110,1) 

910 CALL KEY(0,A,ST>:: IF ST 
<1 OR A< 49 OR A >53 THEN 910 


ELSE A=VAL,< CHR$ (A) ) : : S (AZ) = 
K(l,A):: AZ=AZ-1 :: k<i,A)=s 
<sz):: sz=sz-i :: call hchar 

< <A-1)*5+1,11,62) 

920 NEXT L :: RETURN 

930 A=(NOT <G-2) )+2 

940 IF A=2 THEN CALL AUSSPIE 

LI<K<,),ASK):: GOTO 1050 

950 CALL SOUND(100,110,1) 

960 CALL KEY(0,KT,ST):: IF S 
T = 0 THEN 960 

970 IF KT<49 OR KT>53 THEN 9 
50 

980 KT=VAL(CHR$(KT)) 

990 IF K(1,KT)=-1 THEM 950 
1000 CALL KARTE(-1,5*(KT-1)+ 
1 ,11) 

1010 ASK=K(1,KT) 

1020 CALL KARTE(ASK,13,14) 

1030 K (1 ;KT)=-1 

1040 CALL AUSSPIEL2(T,K(,),A 

SK,BGK>:: GOTO 1150 

1050 CALL SOUND(100,110,1> 

1060 CALL KEY(0,KT,ST):: IF 

ST=0 THEN 1060 

1070 IF KT<49 OR KT>53 THEN 

1050 

1080 KT=VAL(CHRS(KT)) 

1090 IF K(l,KT)=-j THEN 1050 
1100 CALL KONTROLLIER< T , K ( , ) 

,ASK.KT) 

1110 CALL KARTE(-1,5*(KT-1)+ 
1 ,11) 

1120 B6K=K(1,KT) 

1130 CALL KARTE(BGK,13,14) 
1140 K <1,KT) = -1 
1150 IF INT(BGK/10)<>INT(ASK 
/10)AND INT(BGK/10)<>10+T TH 
EN BGK=-BGK 

1160 A=-(ASK>EGK)*A-((NOT(A- 
2))+2)*(ASK<BGK) 

1170 STZ(A)=STZ(A)+1 
1180 CALL KARTE(-1,13,14) 

1190 CALL KARTE<0,5*(STZ(A)- 
0+1 , A*12-4> 

1200 IF STZ(1)+3TZ(2)<5 THEM 
940 

1210 IF STZ(SP)>2 THEN P(SP> 
=P(SP)+1 

1220 IF STZ(SP)=5 THEN P(SP) 
=P(SP)+1 

1230 IF STZ(SP)<3 THEN P(SP) 
=P (SP) -2 :*. SP= (NOT (SP-2) ) +2 
1240 DISPLAY AT(20,(SP-1)*21 
+1)SIZE(7):"SIEGER" 

1250 CALL BILDSCHIRM(0,P(),0 
,0,G) 

1260 DISPLAY AT(21,22)SIZE(7 
):"NOCH" 

1270 DISPLAY AT(22,22)SIZE(7 
):"EIN" 
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1280 DISPLAY AT(23,22)SIZE(7 
):"SPIEL?" 

1290 CALL KEY(0,A,ST):: IF S 
7=0 THEN 1290 
1300 IF A=78 THEN STOP 
1310 IF A< >74 THEN 1280 
1320 6=(NOT(G-2))+2 
1330 CALL BILDSCHIRM(-1,P(), 
0 ,0,6) 

1340 GOTO 270 
1350 SUB AUSTAUSCH<K(,),A> 
1360 A=0 :: FOR L=1 TO 5 
1370 IF K <2,L)<100 THEN A=A + 
1 

1380 NEXT L ;: SUBEND 

1390 SUB AUSSPI EL 1 (K ( ,.),ASK) 

1400 M=-1 :: KT =0 

1410 FOR L= 1 TO 5 

1420 IF K(2,L)>M THEN M=K(2, 

L)'.: KT=L 

1430 NEXT L 

1440 CALL KARTE(-1,(KT-i>*5+ 
1,17) 

1450 CALL KARTE(K(2,KT),13,1 
4) 

1460 ASK=K(2,KT) 

1470 K(2,KT) =-1 
1480 SUBEND 

1490 SUB AUSSPIEL2(T,K(,) ,AS 
K.BGK) 

1500 M=200 : : KT =0 

1510 FÜR L = 1 TO 5 

1520 IF K(2,L)<M AND K(2,L)> 

ASK AND INT(K(2,L)/10)=INT(A 

SK/10)THEN M=K(2,L)i: KT=L 

1530 NEXT L 

1540 IF KT=0 THEN 1600 

1550 CALL KAR^E(-1,(KT-1)*5+ 

1,17) 

1560 CALL KARTE(K(2,KT),13,1 
4) 

1570 BGK=K(2,KT) 

1580 K(2,KT)=-1 

1590 SUBEXIT 

1600 FOR L=1 TO 5 

1610 IF M>K(2,L)AND INT(K(2, 

L)/1 0 )=INT(ASK /10 )THEN M=K(2 

,L):: KT=L 

1620 NEXT L 

1630 IF KT >0 THEN 1550 
1640 FOR L=1 TO 5 
1650 IF K(2,LXM AND INT(K(2 
,L)/10)= 10+T THEN M=K(2,L>:: 
KT=L 

1660 NEXT L 

1670 IF KT>0 THEN 1550 
1680 M=9 

1690 FOR L=1 TÜ 5 
1700 IF M-INT(M/!0)*i0>K(2,L 
)-INT(K(2,L>/10)*J0 AND K(2, 
L) >- 1 THEN M=K(2,L):: KT = L 


1710 NEXT L :: GOTO 1550 
1720 SUBEND 

1730 SUB KONTROLLIER(T,K(,), 
ASK, KT .A) 

1740 BGK=K(1,KTA) 

1750 IF BGK>ASK AND INTfEGK/ 
10)=INT(ASK/10)THEN 1910 
1760 M=200 :: KT =0 :: FOR L = 
1 TO 5 

1770 IF INT(K(1,L)/10)=INT(A 
SK/10)AND KI1,L)<M AND K(1,L 
)>ASK THEN KT=L :: M=K(1,L) 
1780 NEXT L 

1790 IF KT< >0 THEN 1900 

1800 IF INT(BGK/10)=IMT(ASK/ 

10)THEN 1910 

1810 FOR L=1 TO 5 

1820 IF INT(K(1,L)/10)=INT(A 

SK/ 1 0) ANl) K (1 , L.) <M THEN M=K ( 

i,L):: kt=l 

1830 NEXT L 

1840 IF KT< >0 THEN 1900 
1850 IF INT(BGK/10)=10+T THE 
N 1910 

1860 FOR L=1 TO 5 
1870 IF M >K(1,L)AND INT(K(1, 
L ) / 1 0) = 1 0-f-T THEN M=K(i,L):: 
KT=L 

1880 NEXT L 

1890 IF KT=0 THEN 1910 
1900 KT A=KT 
1910 SUBEND 

1920 SUB VORBEREITUNG(G) 

1930 FOR SZ = 95 TO 143 
1940 READ S$ 

1950 CALL CHAR(SZ,S*> 

1960 NEXT S2 

1970 P(1),P(2)=0 

1980 CALL BILDSCHIRM(-1,P(), 

0 , 0 ,G) 

1990 FOR 1=8 TO 14 
2000 CALL COLOR(I,2,16) 

2010 NEXT I 

2020 CALL COLOR(13,7,,16) 

2030 CALL COLOR(0,1,13) 

2040 DATA AA55AA55AA55AA55,0 
0 3 F 3 F0000000003,030F0F0F0F0F 
0F00,00F0F03030C0C000,00,000 
F0F303030300F,0F303030300F0F 
00 

2050 DATA 00C0C030303030C0,C 
020303030C0C000,000F0F303030 
300F, 0F0000.00000F0F00,00C0C0 
30303030F0,F03030C0C0000000 
2060 DATA 003F3F0000000003,0 
30C0C30303F3F00,00F0F03030C0 
C000,0000000000F0F000,000F0F 
303030303F,3F30303030303000 
2070 DATA 00C0C030303030F0,F 
0303030 10 303000,003F 3F 0 C 0 C 0 C 
0C0F,0F0C0C0C0C3F3F00,00C0C0 
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30303.030C0, C030303030C0C000 
2080 DATA 003F3F0C0C0C0C0C , 0 
C0C0C0C0C3F3F00,00C0C0303030 
3030,3030303030C0C000,003030 
303033333C,3C33333030303000 
2090 DATA 003030C0C0000000,0 
00000C0C0303000,000103070F1F 
3F7F,7F3F1F0F07030100,0080C0 
E0F0F3FCFE,FEFCF8F0E0C0S000 
2100 DATA 0000001 33C3E3F3F,1 
F0F 070301000000,000000183C 7 C- 
FCFC,F8F0E0C080000000,000103 
070F1F 3F 3F,3F 3D1901010i0300 
2110 DATA 00S0C0E0F0F8FCFC,F 
CBC9S808.08.0C 00.0,000 i 0307031 1 
397F,7F39i10101010300,0080C0 
E0C0839CFE,FE9C88308080C000 
2120 SUBEND 

2130 3UB BILDSCHIRM(CF,P<>,K 
1 ,K2,G> 

2140 IF CF THEN CALL CLEAR : 

: CALL V CHAR(1, 10,31,336) 

2150 DISPLAY AT(1,1)31ZE(7): 
"SPIELER" 

2160 DISPLAY AT(1,22)SIZE(7) 

; "SPIELER" 

2170 DISPLAY AT(2,1)SIZE(2): 

" # i " 

2180 DISPLAY AT(2,22)SIZE(2) 

: "#2" 

2190 DISPLAY AT(4,1)SIZE(7): 
"PUNKTE:" 

2200 DISPLAY AT(4,22)SIZE(7) 

:"PUNKTE: M * 

2210 DISPLAY AT(5,1)SIZE(7): 
P(l> 

2220 DISPLAY AT(5,22)SIZE(7) 

: P (?) 

2230 IF G=i THEN DISPLAY AT( 
7,1)SIZE(5 >:"GEBER" :: DISPL 
AY AT(7,22)SIZE(7):"AUSSP." 
2240 IF G=2 THEN DISPLAY AT( 
7,22>SIZE<5>:"GEBER" :: DISP 
LAY AT(7,1>SIZE<7):“AUSSP." 
2250 IF Kl = 1 ORT K2=l THEN DI 
SPLAY AT (9,ABS( < K1 = 1) + (K2=1) 
*22))SIZE(7):"KARTE" 

2260 IF Kl=2 OR K2=2 THEN DI 
SPL AY AT (9, ABS< (Kl =2) + (K2--2) 
*22))SIZE(7 >: "SPIEL!" 

2270 IF Kl=3 OR K2=3 THEN DI 
SPLAY AT ( 9,ABS < (Kl =3) + (K2=3) 
*22))SIZE(7):"ICH" :: displa 
Y AT <10,ABS((Kl=3) + <K2=3)*22 
))SIZE(7):"SPIELE" 

2280 IF Kl=4 OR K2=4 THEN DI 
SPLAY AT(9,ABS<(Kl=4)+(K2~4) 
*22))SIZE<7)I"MELDE" :: DISP 
LAY AT(10,ABS((Kl=4)+<K2=4)* 
22) )SIZE(7) : "KOENIG!" 

2290 IF K1=0 THEN DISPLAY AT 


(9,1)SIZE(7):"" :: DISPLAY A 
T(10,1)SIZE <7):»" 

2300 IF K2=0 THEN DISPLAY AT 
(9,22)size(7);" M :: Display 

AT(10,22)SIZE(7):"" 

2310 SUBEND 

2320 SUB KARTE(C,Z,S) 

2330 S=S + 2 


2340 

2350 

*10 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

) 

2430 

2440 

) 

2450 

2460 

) 

2470 

2480 


IF C<=0 THEN 2480 
FC=INT(C/10)-INT(C/100) 

KC=C-FC*10+ 100* (Ol00) 
FC=124 + FC*4 
KC=92+KC*4 . 

CALL HCHAR(Z,S,FC) 

CALL HCHAR <Z,S + l,FC+2> 
CALL HCHAR(Z+1,S,FC+1) 
CALL HCHAR(Z+l,S+l,FC+3 

CALL HCHAR(Z+2,S,KC) 
CALL HCHAR(Z+2,S+l,KC+2 

CALL HCHAR(2 + 3,S,KC +1) 
CALL HCHAR(Z*3,S+1,KC«3 

SUBEXIT 

IF C = 0 THEN C=95 ELSE C 


= 31 


2490 CALL HCHAR(Z,S,C,4) 

2500 CALL OCHAR(Z,S+i,C,4) 

2510 SUBEND 

2520 SUB SORTIER(K(,)) 

2530 FOR 11=1 TO 4 
2540 PÜR 12=11+1 TO 5 
2550 IP K(1,II)<K(1,12)THEN 
H=K (1,12):: KU,12) =K (1,11): 

: K(l,Il)=H 

2560 NEXT 12 - 

2570 NEXT II 
2580 SUBEND 

2590 SUB SP IEL. (T, P O , K (, ) , KF 
L, M) 

2600 TZ,KZ,DZ,BZ=0 

2610 FOR L=1 TO 5 

2620 IF K.(2,L) =108 + T*10 AMD ( 

NOT(KF2))THEN 2740 

2630 KI=INT(K(2,L)/10) 

2640 IF KI=10 + T THEN TZ=TZ + 1 


:: GOTO 2630 

2650 IF K(2,L)-KI*10=8 THEN 

KZ=KZ+1 :: GOTO 2680 

2660 IF K(2,L)-KI*10=7 THEN 

DZ=DZ+1 :: GOTO 2680 

2670 IF K(2,L)-KI*10=6 THEN 

B2=FZ+1 :: GOTO 2680 

2680 NEXT L 

2690 IF TZ >=3 THEN M=-l :: 6 

OTO 2730 

2700 IF TZ> = 2 AND KZ=2 THEN 

M=-1 : : GOTO 2730 

2710 IF KZ + DZ + BZ > = 4 AND KZ^D 


m 
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Z>=2 THEN M=-i :: GOTO 273.0 
2720 M=0 
2730 SUBEXIT 

2740 IF KFL THEN P(1)=P< i )-i 
P(2)=P(2)+1 
2760 M=-3 
2770 KF2, KFI. =- i 
2780 SÜDEN!) 



Verk. Ccntr. Schnittst. Kabel (neu) 60,— Drucke 
List. Bas + XBas. f. 10,— W. Bekcer Einst. Str. 11 
8012 Ottobrunn 


SUPER ANGEBOT !!! Kassettenrandvoll mit 
guten Pgm’s ab Fr. 15,— NEU !! Protected ent¬ 
fernen, Listings von Ihren Pgm’s, Kopien von 
Disks mit beschriebenem Sektor Null, etc. Gra¬ 
tisinfo bie J. Brönnimann, Ausmattstr. 5, CH- 
4132 Muttenz 


TOPGRAFIK-Spielc für TI-99. Suche Software 
für Minimem. (Handbuch). Verk. Spiel-Module. 
Nach 8 Uhr Tel. 02841/57 971 


Ti99/4A mit Zubehör komplett o. einzeln zu 
verkaufen. Exp.-Box, Karten: 48kRAM, RS232 
Centronics, Controler 2 Floppylaufw., Speech- 
Synth. Ext. basic, Ed. Assembler, Tl-Writer, 
viel Softw. VB 1500 kmpl. Tel.: 0511/75 76 24 


Zu verkaufen: 

2 TI 99/4A (davon 1 leicht defekt (ROM) mit 
Recorder + Kabel, Ext. Basic sowie 16 weitere 
Module zu verkaufen! Auch einzeln! Sowie Joy¬ 
stick etc.! Komplettpreis 1200,— DM o. Gebot! 
Tel. 07022/61950 


Verk. TI99/4A + Ext. + 6 Module + Rec. Kabel 
+ Joysticks: 478 Lippstadt, Bastionstr. 45, Hof¬ 
knecht: (580,— DM) 


Tausche Progr. in Ex.B auf Dsk. Suche RS232 
Karte od. E/AMod. geg. Adv. Mod. m. 11 Kas. u.a. 
A.Oest 06408/7650 

Raum Langenfeld M/TG Lied des Tl-Workshop 
sucht Anwender Prg. Tausch usw. Horst Nietowski 
02173/15395 


UNHEIMLICH — Der Weg ins Ungewisse: * THE* 
MASK*OF*TERROR* Das 3-tlg. GRAPHIC- 
SUPER ADVENTURE! Durch seine verschlunge¬ 
nen Pfade bis jetzt ungelöst. Jetzt auch in dt.! 

3 Zehner im Brief an: H. Hambach, Regensb. 

-Str. 236, 8500 Nürnberg 30. IN XBASIC! 


** ALIEN SOFTWARE PRESENTS: ** 

SYNTHY MASTER, der beste Musikynthes. für 
den TI+XBÜ Der kann Alles: z.B. Vibrator, Ge¬ 
räusche, 3-, 2- und einf. Klänge Wiedeholg., Spei¬ 
chern, Laden, Drucken usw. Der Bildschirm wird 
zur Orgeltast! Für nur 15 DM bei H. Hambach 
Regensb.-Str. 236, 8500 Nürnberg 30 

** ALIEN SOFTWARE PRESENTS ** 
Programme, die fast profess. Ansprüchen genügen! 
Feinste Menütechnik! Anwenderfrdl. !! Textv., 
Datei, Mathematik, Finanzberater, Tagebuch, 

HOT GAMES! Info 80 Pf.: H. Hambach, Regensb.- 
Str. 236, 85 Nürnberg 


I 10 REM******************** 


11 REM* * 

12 REM* CATCH WITH CAR * 

13 REM* Copyright by . * 

14 REM* Dirk Junghans * 

15 REM* - * 

16 REM* * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* " * 

23 REM* Speicherbelegung * 

24 REM* 6762 Bytes * 


25 REM******************** 

26 REM 

160 RANDOMIZE 
170 REM DEFINE CHARACTERS 
180 DATA 0003060606060606,04 
CA4440206E8A8A,000000F08888E 
424,7C80C060301B0F01,EAEA2A2 
A2A2A2EA1,2464C48282828408 
190 DATA 01,9ECC6071311C0F03 
,304080000080 

200 CALL CHAR(136,"427E5A181 
85A7E42") 

210 CALL CHAR(137,"00E7427E7 
E42E700 M ) 

220 CALL CHAR(96,"02C2241818 
244340") 

230 CALL CHAR(97,"C324187E5A 
663C42") 

240 CALL CHAR<33,"3C18A5DBDB 
A5183C") 

250 CALL CHAR(104,"566A566A5 
66A566A") 

260 CALL CHAR ( 105,"00FFAA55A 
A55FF00") 

270 CALL CHAR(112,“18183CE7E 
73C1818") 

280 CALL CHAR (106,"808080808 
0808080") 

290 REM VORSPANN 
300 REST0RE 180 
310 F0R 1=144 T0 152 
320 READ A$ 

330 CALL CHAR(I,A$) 

340 NEXT I 

350 CALL CLEAR 

360 CALL SCREEN(10) 

370 PRINT TAB(8)J"DIRK JUNGH 
ANS : iTAB(9)f"PRAESENTIE 
RT":TAB(11);"FUER DEN" 

380 PRINT : : :TAB<11)J"TI99 
/4A": :tab( 13)j"VON": : : : 
390 PRINT TAB(13)JCHR$(144); 
CHR$(145);CHR$(146):TAB(13)i 
CHR*(147)5 CHR$ <148);CHR$ <149 
) 

400 PRINT TAB ( 13)J CHR$(150)J 
CHR$(151)JCHR$(152): : : : 
410 CALL SOUND(300,262,2) 

420 CALL SOUND(900,349,2) 
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430 CALL SOUND(100,329,2) 

440 CALL SOUND(100,349,2) 

450 CALL SOUND(100,392,2) 

460 CALL SOUND(300,440,2) 

470 CALL SOUND(300,440,2) 

480 CALL SOUND(300,440,2) 

490 CALL SOUND(100,440,2) 

500 CALL SOUND(100,466,2) 

510 CALL SOUND(100,392,2) 

520 CALL SOUND(450,440,2) 

530 CALL SOUND(150,392,2) 

540 CALL SOUND(300,349,2) 

550 FOR 1=1 TO 500 

560 NEXT I 

570 FOR 1=1 TO 20 

580 PRINT 

590 NEXT I 

600 CALL SCREEN(11) 

610 Z=10 
620 S=2 

630 Q$="*******CATCH WITH CA 
R*********" 

640 GOSUB 2810 
650 FOR 1=1 TO 30 
660 IF I>13 THEN 700 
670 CALL SCREEN(I+1) 

680 CALL SCREEN <I+3) 

690 CALL SCREEN(I+2) 

700 CALL SOUND(100,-7,1,440, 
I, 190,1,880,I) 

710 NEXT I 
720 CALL CLEAR 
730 WAGEN=3 
740 PUNKTE=100 
750 R=1 
760 ANJ=0 
770 DD=0 

780 CALL SCREEN(13) 

790 CALL C0L0R(1,11,15) 

800 CALL C0L0R(9,10,15) 

810 CALL COLOR(10,2,15) 

820 CALL COLOR (11,8,15) 

830 CALL COLOR(14,6,15) 

840 CALL VCHAR(1,31,106,24) 
850 Q$= ” PUNKTE" 

860 Z=3 
870 S—"32 
880 GOSUB 2850 
890 GOSUB 2890 

900 CALL VCHAR(19,31,137,WAG 
EN) 

910 D=24 
920 J=15 

930 CALL HCHAR(D,J,136) 

940 CALL KEY(2,K,ST) 

950 IF ST=0 THEN 940 

960 GOSUB 2690 

970 CALL JOYST(2,K,ST) 

980 IF K>0 THEN 1310 
990 IF K<0 THEN 1450 
1000 IF ST >0 THEN 1030 


1010 IF ST<0 THEN 1170 
1020 ON R GOTO 1030,1170,131 
0,1450 

1030 R=1 ' 

1040 L=136 

1050 M=D 

1060 N=J 

1070 0=104 

1080 D=D-i 

1090 IF D<1 THEN 1590 
1100 CALL GCHAR(D,J,U) 

1110 IF U=32 THEN 1140 

1120 GOSUB 3310 

1130 GOTO 970 

1140 CALL HCHAR(D,J,136) 

1150 CALL HCHAR(D+1,J,104) 

1160 GOTO 970 

1170 R=2 

1180 L=136 

1190 M=D 

1200 N=J 

1210 0=104 

1220 D=D+1 

1230 IF D >24 THEN 1590 
1240 CALL GCHAR(D,J,U) 

1250 IF U=32 THEN 1280 

1260 GOSUB 3310 

1270 GOTO 970 

1280 CALL HCHAR(D,J,136) 

1290 CALL HCHAR(D-l,J,104) 

1300 GOTO 970 

1310 R=3 

1320 L=137 

1330 M=D 

1340 N=J 

1350 0=105 

1360 J=J+1 

1370 IF J >30 THEN 1590- 
1380 CALL GCHAR(D,J,U) 

1390 IF U=32 THEN 1420 

1400 GOSUB 3310 

1410 GOTO 970 

1420 CALL HCHAR(D,J,137) 

1430 CALL HCHAR(D,J-l,105) 

1440 GOTO 970 

1450 R=4 

1460 L=137 

1470 M=D 

1480 N=J 

1490 0=105 

1500 J=J-1 

1510 IF J<1 THEN 1590 
1520 CALL GCHAR(D,J,U) 

1530 IF U=32 THEN 1560 

1540 GOSUB 3310 

1550 GOTO 970 

1560 CALL HCHAR(D,J,137) 

1570 CALL HCHAR(D,J+l,105) 
1580 GOTO 970 
1590 FOR 1=1 TO 30 
1600 CALL SOUND(-65,119,I,-5 


,1,117,1,115,1) 

1610 NEXT I 

1620 GOSUB 3000 

1630 IF D<1 THEN 1670 

1640 IF D>24 THEN 1690 

1650 IF J<1 THEN 1710 

1660 IF J >30 THEN 1730 

1670 D=1 

1680 GOTO 1740 

1690 D=24 

1700 GOTO 1740 

1710 J=1 

1720 GOTO 1740 

1730 J=30 

1740 CALL HCHAR(D,J,32) 

1750 D=INT(RND*24)+1 
1760 J=INT(RND*30)+1 
1770 CALL GCHAR(D,J,ZZ) 

1780 IF ZZ<>32 THEN 1750 
1790 IF J<25 THEN 1800 ELSE 
1750 

1800 R=3 

1810 CALL HCHAR(D,J,137) 

1820 GOTO 940 

1830 CALL HCHAR(D,J,L) 

1840 CALL HCHAR(M,N,0) 

1850 CALL SOUND(100,440,1,55 
0,1,660,1) 

1860 CALL SOUND( 100,990,1,10 
00 , 1 , 1010 , 1 ) 

1870 PUNKTE=PUNKTE+211 
1880 GOSUB 2890 
1890 GOTO 2690 
1900 CALL HCHAR(D,J,L) 

1910 CALL HCHAR(M,N,0) 

1920 T0N=220 

1930 FOR 1=1 TO 3 

1940 CALL SOUND(100,TON,1) 

1950 TON=TON+1 

1960 NEXT I 

1970 PUNKTE=PUNKTE+311 
1980 GOSUB 2890 
1990 GOTO 2690 
2000 CALL HCHAR(D,J,L) 

2010 CALL HCHAR(M,N,0) 

2020 CALL SOUND(100,220,1) 
2030 CALL SOUND(100,247,1) 
2040 CALL SOUND(100,294,1) 
2050 CALL SOUND(100,330,1) 
2060 FOR 1=1 TO 6 
2070 DJ1=DJ1+1 
2080 IF DJ1>7 THEN 2150 
2090 X=INT(RND*24)+1 
2100 Y=INT(RND*30)+1 
2110 CALL GCHAR(X,Y,F) 

2120 IF (F=105)..+ (F=104 ) THEN 

2130 ELSE 2070 

2130 CALL HCHAR(X,Y,32) 

2140 CALL SOUND(100,440,1) 
2150 DJ1=0 
2160. NEXT I ' 


2170 GOTO 2690 

2180 CALL HCHAR<D,J,L) 

2190 CALL HCHAR(M,N,0) 

2200 CALL SOUND(100,262,1) 
2210 CALL SOUND<100,524,1) 
2220 CALL SOUND(100,392, T) 
2230 CALL SOUND(100,440,1) 
2240 CALL SOUND(100,344,1) 
2250 PUNKTE=PUNKTE+90 
2260 GOSUB 2890 
2270 FOR 1=1 TO 3 
2280 DJ=DJ +1 
2290 IF DJ>14 THEN 2360 
2300 X=INT(RND*24)+1 
2310 Y=INT(RND*30)+1 
2320 CALL GCHAR(X,Y,F) 

2330 IF (F=104)+(F=105)THEN 

2340 ELSE 2280 

2340 CALL HCHAR(X,Y,32) 

2350 CALL SOUND(100,440,1) 

2360 DJ=0 

2370 NEXT I 

2380 GOTO 2690 

2390 CALL HCHAR(D,J,L) 

2400 CALL HCHAR(M,N,0) 

2410 CALL SOUNDdOO, -6, 1,200 

2420 ANJ=ANJ +1 
2430 IF ANJ >15 THEN 3040 
2440 FOR 1=1 TO LEN(STR$(ANJ 
) ) 

2450 CALL HCHAR(1,30+I,ASC(S 
EG$(STR*(ANJ),1,1))) 

2460 NEXT I 

2470 PUNKTE=PUNKTE-100 

2480 GOSUB 2890 

2490 GOTO 970 

2500 DD=DD+1 

2510 IF DD>1 THEN 2950 

2520 RESTORE 2670 

2530 FOR 1=1 TO 13 

2540 READ AB,CD 

2550 CALL SOUND(AB,CD,1) 

2560 NEXT I 

2570 WAGEN=WAGEN+1 

2580 CALL VCHAR(18+WAGEN,31, 

137) 

2590 FOR 1=1 TO 25 
2600 X=INT(RND*24)+1 
2610 Y=INT(RND*30)+1 
2620 CALL GCHAR(X,Y,U) 

2630 IF (U=104)+(U=105)THEN 

2640 ELSE 2600 

2640 CALL HCHAR(X,Y,32) 

2650 NEXT I 
2660 GOTO 2950 

2670 DATA 200,330,200,330,20 
0,330,200,349,200,262,200,33 
0,500,294,200,311,200,311,20 
0,311,200,349,300,277 
2680 DATA 500,247 
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2690 Z$="*a!p" 

2700 Z=INT(RND*4)+1 
2710 V=ASC(SEG*(Z*,Z,1)) 

2720 C=INT(RND*24)+1 
2730 G=INT(RND*30)+2 
2740 CALL GCHAR(C , G, E) 

2750 IF E< >32 THEN 2720 
2760 CALL SOUND(100,330,1) 
2770 CALL SOUND(100,330,1) 
2780 CALL SOUND(210,500,1) 
2790 CALL HCHAR(C,G,V) 

2800 RETURN 

2810 FOR 1 = 1 TO LEN < Q$) 

2820 CALL HCHAR(Z,S+I,ASC(SE 
G$(Q$,I,1))) 

2830 NEXT I 
2840 RETURN 

2850 FOR 1=1 TO LEN(Q$) 

2860 CALL VCHAR(Z+I,S,ASC(SE 
G*(Q*,1,1> > > 

2870 NEXT I 
2880 RETURN 

2890 IF PUNKTE< =0 THEN 2900 
ELSE 2940 
2900 PUNKTE=0 

2910 CALL VCHAR(10,32,32,5) 
2920 CALL VCHAR(10,32,48) 
2930 GOTO 3000 

2940 IF PUNKTE>1500 THEN 250 
0 

2950 CALL VCHAR(10,32,32,5) 
2960 FOR 1=1 TO LEN(STR$(PUN 
KTE) ) 

2970 CALL VCHAR(10+I,32,ASC( 
SEG$(STR$(PUNKTE),1,1))) 

2980 NEXT I 

2990 RETURN 

3000 WAGEN=WAGEN-1 

3010 IF WAGEN< =0 THEN 3040 

3020 CALL VCHAR(19+WAGEN,31, 

32) 

3030 RETURN 

3040 CALL HCHARdO, 12,32,9) 
3050 Q$="GAIiE OVER" 

3060 Z=10 
3070 S=12 
3080 GOSUB 2810 
3090 IF PUNKTE>HIGH THEN 311 
0 

3100 GOTO 3170 

3110 HIGH=PUNKTE 

3120 T0N=110 

3130 FOR 1=1 TO 3 

3140 CALL SOUND(100,TON,1) 

3150 T0N=TGN+110 

3160 NEXT I 

3170 CALL HCHAR(15,5,32,14) 
3180 Z=15 
3190 S=5 

3200 Q$= H HIGHSCORE "fcSTR$<HI 
GH) 


3210 GOSUB 2810 

3220 CALL HCHAR(20,5,32,18) 

3230 Z=20 

3240 S=5 

3250 Q$="NEUES SPIEL (J/N)" 

3260 GOSUB 2810 

3270 CALL KEY(3,K,ST) 

3280 IF K=74 THEN 290 

3290 IF K=78 THEN 3300 ELSE 

3270 

3300 STOP 

3310 IF U=96 THEN 1830 
3320 IF U=97 THEN 1900 
3330 IF U=33 THEN 2000 
3340 IF U=112 THEN 2180 
3350 IF U=104 THEN 2390 
3360 IF U=105 THEN 2390 
3370 END 



Disketten / Zubehör - Einführungsangebot 


Stück 

_10 

100 

300 

i ! MD 5'A" ID Standard 

3.05 

2.85 

2.55 

1 1 MD 5'A" ID Quality 

3.75 

3,50 

3,05 

t 1 MD Fi'//' ?D Quality 

4.50 

4,20 

3,75 

1 I MD SV«" ?D 96 TPt 

6,60 

5,85 

5,20 

1_1 MD 5 V«" HD Maxell 

12.60 

11,75 

10,90 

1 1 MD 5V«" ID Maxell 

5,75 

5,45 

4,75 

l . J MD 5'/«" 2D Maxell 

8,35 

8,10 

6,95 

l J MD 3 W ID SONY 

12,20 

10,45 

9,36 

1 J MD 3W 20 SONY 

14,60 

13,60 

12,20 

1 ... 1 MD 3W ID Maxell 

8,90 

7.20 

- 

l . 1 MD 3'/J" 2D Maxell 

12,90 

10,60 

- 

1 . 1 Diskettenlocher 

13,98 


- 

1_1 V24-Kabel Kunden spezifisch 

58,50 

- 

- 


Anderes Zubehör auf Anfrage! Wir fertigen Ihnen jedes EDV-Kabel preiswert 
nach Ihren Wünschen! Alle Preise sind Nettopreise in DM/Stück. 
Mindestbestellwert DM 60,-. Lieferung auf Rechnung ab DM 300- 
Bei Neukunden und Beträgen unter 300,- DM Lieferung per NN oder VK 


Name 


Straße 



Ort 



Datum 

* 



Unterschrift/Firmenstempel 


Einfach Anzeige ausschneiden und als Bestellschein einsenden an: j 

MICHAEL MEISTER.EDV-Marketing 

Rheinsiraße 47 • 7500 Karlsruhe 21 
Tel. (07 21) 55 46 01 (Frau Staack) 
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10 R EM******************** 


11 REM* * 

12 REM* SKYDRIVER * 

13 REM* Copyright by * 

14 REM* B.Jaehrling * 

15 REM* * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 9371 Bytes * 


25 REM******************** 

26 REM 

160 CALL CLEAR 
170 CALL SCREEN(4) 

180 REM ZEICHENDEFINITION 
190 REM WOLKEN 
200 CALL CHAR(40,"000006070F 
3B7F77") 

210 CALL CHAR(41,"007SB052CE 
FFF6DC") 

220 CALL CHAR(42,"663D0C") 
230 CALL CHAR(43,"70C87060") 
240 CALL CHAR(152,"000000000 
3020F07") 

250 CALL CHAR(153,"0102386E3 
F7FFF7F") 

260 CALL CHAR(154,"0461F86BF 
DFFBFFF") 

270 CALL CHAR(155,"80E8FC914 
0D8E87C") 

280 CALL CHAR(156,"071F7BEE7 
D0C02") 

290 CALL CHAR(157,"F7B3FF5F5 
3E17706") 

300 CALL CHAR(158,"FFFFDFFF9 
EDA84") 

310 CALL CHAR(159,"FAB3ECB6E 
641E420") 

320 REM BAUEME 

330 CALL CHAR(136,"1S18183C7 
EBD3C7E") 

340 CALL CHAR<137,"000101030 
6000103") 

350 CALL CHAR(133,"FFFFFFFFF 
FFFFFFF") 

36Ö CALL CHAR(139,"0080S0C06 
00080C0") 

370 CALL CHAR(140,"03170E000 
30F1F33") 

380 CALL CHAR(141,"C0E87000C 
0F0F8CC") 

390 CALL CHAR(142,"27070F0F1 
F3FFF7F") 

400 CALL CHAR(143,"E4E0F0F0F 
8FCFFFE") * 

410 CALL CHAR(144,"3C3C3C3C3 
C3C7EFF") 

420 REM HUBSCHRAUBER 

430 CALL CHAR(130,"000005060 

F1703") 


440 CALL CHAR(131,"00BF0003F 
FFFFF07") 

450 CALL CHAR(132,"00FE80E01 
00888F0") 

460 CALL CHAR(133,"030907") 
470 CALL CHAR(134,"E048F0") 
480 REM LANDEMARKE 
490 CALL CHAR(112,"7FFFFF7F" 
) 

500 CALL CHAR(113,"FFFFFFFF" 
) 

510 CALL CHAR(115,"FEFFFFFE" 
) 

520 REM SPRINGER 

530 CALL CHAR(120,"18187EBD3 

C244281") 

540 CALL CHAR (122, "3C7EFFC34 
22418") 

550 FÜR 1=3 TO 8 
560 CALL CÜLÜR(1,2,4) 

570 NEXT I 

580 PRINT TAB(7) j "S K Y - D 
I V E R": : : : : 

590 PRINT TAB(14)j "von": : : 

600 PRINT TAB(7);"Burkhard J 
aehr-1 i ng": : : : : : : : 

610 PRINT TAB(16);"Erkrath, 
1984": : 

620 CALL HCHAR(6,9,61,17) 

630 DATA 300,350,200,330,200 

,350,200,370,200,370,200,350 

,200,370,200,390 

640 DATA 200,410,350,390,200 

,370,200,370,450,390 

650 FOR K=i TO 2 

660 FOR 1=1 TO 13 

670 READ A,B 

680 CALL SOUND(A-20,B,0,B-2, 
5, B + 2,5) 

690 NEXT I 

700-FOR L=1 TO 70 

710 NEXT L 

720 RESTORE 630 

730 NEXT K 

740 DATA 300,390,200,390,200 

,350,200,350,200,290,200,290 

,200,250,200,310,200,280,600 

,250,200,200 

750 RESTORE 740 

760 FOR 1=1 TO 10 

770 READ A,B 

780 CALL SOUND(A-30,B,0,B-2, 
5,B+2,5) 

790 NEXT I 
800 RESTORE 630 
810 FOR 1=1 TO 23 
820 READ A,E 

830 CALL SOUND(A-30,B,0,B-2, 
5,B+2,5) 

840 NEXT I 
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850 CALL CLEAR 

860 PRINT " KÜRZE SPIELANL 

eitung ?": : : 

870 PRINT TAB(12)i"CJJNI": : 


880 CALL KEY < 0 , K, S) 

890 IF S=0 THEN 880 
900 IF K=78 THEN 930 
910 IF K< >74 THEN 880 
920 GOSUB 4060 
930 CALL CLEAR 

940 SP$="BITTE SPIELART WAEH 
LEN: " 

950 SA$="1j LEICHTERES SPIEL 

ii 

960 SB$="2', ETWAS SCHWIERIGE 
R" 

970 FOR 1=1 TO LEN(SP$) 

980 CALL HCHAR(12,4+1,ASC(SE 
G$ <SP$,1,1))) 

990 NEXT I 

1000 FOR 1=1 TO LEN(SA$) 

1010 CALL HCHAR (15,6+1,ASC(S 
EG$(SA$,1,1))) 

1020 NEXT I 

1030 FOR 1=1 TO LEN(SB$) 

1040 CALL HCHAR(17,6+1,ASC(S 
EG$<SB$,1,1))) 

1050 NEXT I 

1060 CALL KEY(0,K,S) 

1070 IF S=0 THEN 1060 

1080 IF K=49 THEN 1120 

1090 IF K< >50 THEN 1060 

1100 SP=2 

1110 GOTO 1130 

1120 SP=1 

1130 CALL CLEAR 

1140 CALL SCREEN(2) 

1150 FOR 1=3 TO 7 
1160 CALL COLOR(I,15,1) 

1170 NEXT I 

1180 CALL C0L0R(2,15,8) 

1190 CALL C0L0RU6,15,8) 

1200 CALL C0L0R(14,13,8) 

1210 CALL C0L0R(15,14,4) 

1220 CALL COLOR(13,7,8) 

1230 CALL COLOR(12,2,8) 

1240 CALL COLOR(11,7,4) 

1250 S$="SCORE" 

1260 FOR 1=1 TO LEN(S$) 

1270 CALL HCHAR(2,3+1,ASC(SE 
G$(S$,I,1))) 

1280 NEXT I 
1290 M$="MEN" 

1300 FOR 1=1 TO LEN<M$) 

1310 CALL HCHAR(2,15+1,ASC(S 
EG$<M$,1,1))) 

1320 NEXT I 
1330 P=0 
1340 MEN=5 
1350 BZ=0 


1360 GOSUB 3920 
1370 GOSUB 4000 
1380 IF SP=1 THEN 1410 
1390 CALL COLOR(12,2,2) 

1400 CALL HCHAR(2,23,121,7) 

1410 M=0 

1420 Y=0 

1430 U=0 

1440 L=0 

1450 T=0 

1460 PU=0 

1470 R=0 

1480 BL=0 

1490 CALL COLOR(9,8,8) 

1500 CALL HCHAR(4,1,97,608) 
1510 CALL COLOR(10,4,4) 

1520 CALL HCHAR(20,1,104,160 

) 

1530 FOR 1=1 TO 100 
1540 NEXT I 
1550 RANDOMIZE 
1560 REM WIND J/N 
1570 IF SP=1 THEN 1310 
1580 WM=INT (RND-K-3) +1 
1590 IF WM=2 THEN 1630 

1600 IF WM=3 THEN 1650 

1610 WM$="WIND 0" 

1620 GOTO 1660 
1630 WM$="WIND <<" 

1640 GOTO 1660 
1650 WM$="WIND >>" 

1660 FOR 1=1 TO LEN(WM$) 

1670 CALL HCHAR(2,22+1,ASC(S 
EG$(WM$,1,1))) 

1680 IF WM=1 THEN 1730 

1690 IF WM=3 THEN 1720 

1700 CALL SOUND(100,280,0) 
1710 GOTO 1730 
1720 CALL SOUNDdOO,600,0) 
1730 NEXT I 

1740 REM POSITION LANDEMARKE 


1750 IF WM=1 THEN 1810 
1760 IF WM=2 THEN 1790 . 

1770 A=INT<RND*22)+8 

1780 GOTO 1820 

1790 A=INT<RND*23)+3 

1800 GOTO 1820 

1810 A=INT<RND*24)+4 

1820 CALL HCHAR(24,A,113) 

1830 CALL HCHAR(24,A-1,112) 

1840 CALL HCHAR(24,A+i,115) 

1850 REM POSITION BAEUME 

1860 FOR 1=1 TO 6 

1870 B=18 

1880 C=INT(RND*29)+2 
1890 CALL GCHAR(B,C,Z) 

1900 IF Z< >97 THEN 1870 
1910 CALL GCHAR(B,C-i,Z) 
1920 IF Z< >97 THEN 1870 
1930 CALL GCHAR(B,C+1,Z) 
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1940 IF Z< >97 THEN 1870 
1950 F=24 

1960 CALL GCHAR(F,C, Q) 

1970 IF Q< >104 THEN 1870 
1980 CALL GCHAR(F,C-1,Q) 

1990 IF Q< >104 THEN 1870 
2000 CALL GCHAR(F,C+l,Q) 

2010 IF Q< >104 THEN 1870 
2020 CALL HCHAR(B,C,138) 

2030 CALL HCHAR(B+1,C,138) 
2040 CALL HCHAR(B+2,C,144) 
2050 CALL HCHAR(B+1,C-1,142) 
2060 CALL HCHAR(B+l,C+l,143) 
2070 CALL HCHAR(B,C-1,140) 
2080 CALL HCHAR(B,C+1,141) 
2090 CALL HCHAR(B-1,C-1,137) 
2100 CALL HCHAR(B-i,C,138) 
2110 CALL HCHAR(B-1,C+1,139) 
2120 CALL HCHAR(B-2,C,136) 
2130 NEXT I 
2140 REM WOLKEN 
2150 FOR 1=1 TO 9 
2160 D=5 

2170 E=INT(RND*28)+3 
2180 CALL GCHAR(D,E,Z) 

2190 IF Z< >97 THEN 2160 
2200 CALL HCHAR(D,E,40) 

2210 CALL HCHAR(D+1,E,42) 
2220 CALL HCHAR(D,E+i,41) 
2230 CALL HCHAR(D +1,E+1,43) 
2240 NEXT I 
2250 F=6 

2260 G=INT(RND*21)+6 
2270 CALL GCHAR(F,G,Z) 

2280 IF Z< >97 THEN 2250 
2290 CALL HCHAR<F,G,152) 

2300 CALL HCHAR(F+i,G,156) 
2310 CALL HCHAR(F,G+1,153) 
2320 CALL HCHAR(F+l,G+l,157) 
2330 CALL HCHAR(F,G+2,154) 
2340 CALL HCHAR(F+l,G+2,158) 
2350 CALL HCHAR(F,G+3,155) 
2360 CALL HCHAR(F+l,G+3,159) 
2370 REM FLUG 
2380 CALL COLOR(12,2,8) 

2390 CALL COLOR(13,7,4) 

2400 FOR 1=2 TO 45 
2410 CALL COLOR(13,7,8) 

2420 IF I>31 THEN 2440 
2430 CALL SOUND(500,-8,0) 
2440 IF I>=31 THEN 2660 
2450 IF I>28 THEN 2510 
2460 CALL GCHAR(7,1+4,W) 

2470 CALL GCHAR(7,1+3,Z) 

2480 IF W-Z=l THEN 2590 
2490 IF M<1 THEN 2510 
2500 IF M<8 THEN 2700 
2510 CALL HCHAR(7,1-1,97) 
2520 CALL HCHAR(8,I,97) 

2530 CALL HCHAR(7,I,130) 

2540 CALL HCHAR (7, 1 + 1 , 131') 


2550 CALL HCHAR(8,I+1,133) 
2560 CALL HCHAR(7,1+2,132) 
■2570 CALL HCHAR(8,I+2,134) 
2580 GOTO 2710 
2590 CALL HCHAR(7,1-1,97) 
2600 CALL HCHAR(7,1,97) - 

2610 CALL HCHAR(8,1,97) 

2620 CALL HCHAR(7,I+1,97) 

2630 CALL HCHAR(8,I+1,97) 

2640 M=M+1 

2650 GOTO 2710 

2660 CALL HCHAR(7,30,97,3) 

2670 CALL HCHAR(8,29,97,4) 

2680 Y=2 

2690 GOTO 2710 

2700 M=M+1 

2710 FOR K=1 TO 10 

2720 NEXT K 

2730 IF Y=2 THEN 2800 

2740 IF Y=1 THEN 2810 

2750 CALL KEY(0,K,S> 

2760 IF S=0 THEN 3400 
2770 IF K< >32 THEN 3400 
2780 CALL SOUND(50,600,0) 
2790 Y=1 

2800 IF U=Q THEN 3400 
2810 IF WM=3 THEN 2870 
2820 L=I-(U+R) 

2830 IF SP=1 THEN 2920 

2840 IF WM=1 THEN 2920 

2850 IF L< 3 THEN 2920 
2860 GOTO 2890 
2870 L=I-(U-R) 

2880 IF L >31 THEN 2920 
2890 R=R+1 

2900 IF R< 3 THEN 2930 

2910 R=3 

2920 BL=BL+1 

2930 IF U>15 THEN 3400 

2940 IF U=15 THEN 3130 

2950 IF U>12 THEN 3050 

2960 CALL VCHAR(7 + U,L, 97) 

2970 IF BL>2 THEN 3060 

2980 IF WM=3 THEN 3020 

2990 CALL VCHAR(7+U,L+i,97) 

3000 CALL VCHAR(8+U,L+1,97) 

3010 GOTO 3060 

3020 CALL VCHAR(7+U,L-l,97) 

3030 CALL VCHAR(8+U,L-i,97) 

3040 GOTO 3060 

3050 CALL VCHAR(7+U,L,104) 

3060 CALL VCHAR(8+U,L,122) 

3070 CALL VCHAR(9+U,L,120) 

3080 IF 9+U+l>19 THEN 3110 

3090 CALL GCHAR(9+U+l,L,V) 

3100 IF V< >97 THEN 3260 

3110 U=U+1 

3120 GOTO 3400 

3130 CALL VCHAR(22,L,104) 

3140 CALL GCHAR < 24,L,X) 

3150 IF X=104 THEN 3340 
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3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3330 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 


IF X=113 
PU=1 

GOTO 3360 
PU=3 
CALL 
CALL 
CALL 
CALL 
U=U + i 
GOTO 3400 


THEN 3190 


SOUNDdOO,250,0) 
SOUNDdOO,280,0) 
SOUNDdOO,320,0) 
SOUND(300,430,0) 


HCHAR(8+U,L,97) 
SOUND(100,210,1) 
HCHAR(9+U,L,97) 
SOUND(100,180,1) 
HCHAR(21,L,120) 
SOUND(250,150,1) 

3380 

SOUND(200,180,0) 
3380 

SOUND(100,250,0) 
SOUND(250,425,0) 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
U= 16 
GOTO 
CALL 
GOTO 
CALL 
CALL 
T= 1 
U=U+ 1 
NEXT I 

IF U>0 THEN 3430 
T= 1 

IF PU=0 THEN 3490 
IF PU=1 THEN 3470 
P=P + 3 
GOTO 3480 
P=P + 1 

GÜSUB 3910 
IF T=0 THEN 
MEN=MEN-1 
GOSUB 4000 
IF BZ=1 THEN 
IF P<30 THEN 
BZ = 1 

FOR 1=1 TO 5 
B0$="BONUS SPRINGER" 

FOR K=1 TO LEN(B0$) 

CALL HCHAR(10,9+K,ASC(S 
EG$(BO$,K, 1) ) ) 

3590 NEXT K 

3600 CALL SOUND(-200,600,0,5 
00,0,700,0) 

3610 CALL HCHAR(10,9,97,15) 

3620 NEXT I 

3630 MEN=MEN+1 

3640 GOSUB 4000 

3650 IF MEN=0 THEN 3670 

3660 GOTO 1380 

3670 CALL CLEAR 

3680 CALL SCREEN(4) 

3690 FOR 1=3 TO 8 
3700 CALL COLOR(1,2,4) 

3710 NEXT I 

3720 E$="SIE HABEN "&STR$(P) 
&" PUNKTE" 

3730 FOR 1=1 TO LEN(E$) 


3520 


3650 

3650 


3740 CALL HCHAR(14,4+I,ASC(S 
EG*(E$,I,1) ) ) 

3750 NEXT I 

3760 FOR 1=1 TO 300 

3770 NEXT I 

3780 N$="NOCH EIN SPIEL ? CJ 
J N 3 " 

3790 FOR 1=1 TO LEN(N$) 

3800 CALL HCHAR(20,4+1,ASC(S 
EG$(N$,I,1))) 

3810 NEXT I 

3820 CALL KEY(0,K,S) 

3830 IF S=0 THEN 3820 

3840 IF K=74 THEN 930 

3850 IF K< >78 THEN 3820 

3860 CALL CLEAR 

3870 FOR 1=1 TO 5 

3880 PRINT " AUF WIEDER 

SEHEN": :::::::::: 


3890 NEXT I 
3900 END 

3910 REN ZAEHLER PUNKTE 
3920 P$=STR$(P) 

3930 IF LEN(P$)=3 THEN 3960 
3940 P$="0"kP$ 

3950 GOTO 3930 

3960 FOR 1=1 TO LEN(P$) 

3970 CALL HCHAR(2,10+I,ASC(S 
EG$(P$,1,1))) 

3980 NEXT I 
3990 RETURN 
4000 REM ZAEHLER NEN 
4010 ME$=STR$(MEN) 

4020 CALL HCHAR(2,20,ASC(ME$ 

) ) 

4030 FOR 1=1 TO 100 
4040 NEXT I 
4050 RETURN 
4060 CALL CLEAR 
4070 PRINT "EIN HUBSCHRAUBER 
MIT 5 FALL-":"SCHIRMSPRINGE 
RN FLIEGT UEBER":"EINE LANDS 
CHAFT. •' r ; 

4030 PRINT "DURCH'DRUECKEN D 
ER SPACE-":"TASTE WIRD DER S 
PRUNG AUS-":"GELOEST. H : : 

4090 PRINT "TRIFFT DER SPRIN 
GER DIE":"LANDEMARKE NICHT W 
IRD EIN":"SPRINGER ABGEZOGEN 

Ums 

4100 PRINT "TRIFFT ER SIE AM 
RAND WIRD":"EBENFALLS EIN S 
FRINGER":"ABGEZOGEN?":"SIE E 
RHALTEN ABER 1 PUNKT.": : 

4110 PRINT "LANDET ER AUF DE 
R MITTE DER":"LANDEMARKE ERH 
ALTEN SIE":"3 PUNKTE." 

4120 PRINT "DIE ANZAHL DER S 
PRINGER":"AENDERT SICH NICHT 

.": Irr 
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4130 PRINT TAB(24)>"ENTER" 
4140 CALL KEY(3,K,S) 

4150 IF S?=0 THEN 4140 

4160 IF K< >13 THEN 4140 

4170 CALL CLEAR 

4180 PRINT "WENN SIE 30 PUNK 

TE ERREICHEN":"ERHALTEN SIE 

EINEN SPRINGER":"ZUSAETZLICH 


4190 PRINT TAB(24);"ENTER" 
4200 CALL KEY(3,K,S) 

4210 IF S=0 THEN 4200 
4220 IF K< >13 THEN 4200 
4230 CALL CLEAR 
4240 PRINT "SIE KOENNEN ZWIS¬ 
CHEN ZWEI":"SPIELVARIANTEN W 
AEHLEN.": : : : 

4250 PRINT "SPIELART 1:": : 

4260 PRINT "ABSPRUNG BEI WIN 

bstille.": : : 

4270 PRINT "SPIELART 2:": : 

4280 PRINT "HIERBEI SIND DIE 
WINDVER-":"HAELTNISSE ZU BE 
ACHTEN.":"SIE WERDEN VOR DEM 
START DES":"HUBSCHRAUBERS A 

ngezeigt.": : : : 

4290 PRINT "VIEL VERGNUEGEN 
BEIM SPIEL": : 

4300 FRINT TAB<24)j"ENTER" 
4310 CALL KEY(3,K,S) 

4320 IF S=0 THEN 4310 
4330 IF K< >13 THEN 4310 
4340 RETURN 




BÖRSE 


Suche Kontakte zu TI99/4A Besitzer (auch 
Wissensch. Anwend.) im Raum Göttingen / 
Kass. WHXBREW 0551/71785 


Suche Monitor für TI99/4A U.S.-Bauart am lieb¬ 
sten Farbe mit NTSC Anschluß. Um 400 DM. 
0551/71785 


Verk. TI+Ex-Basic-Programme. Info g. Rückpor¬ 
to. B. Knedel, Tulpengasse 16, 3171 Weyhausen 
Tel. 05362/71187 

Suche E/A-Modul + 32K Erw. f. TI-99/4A. 
Marco Bock, Moselstr. 9, 2805 Stuhr I, Tel. 
0421/89026 


Verk. TI99/4A + Rekorder + Kabel +12 Steck- 
module (Parsec, Schach, ext. Basic, Invaders) 

+ Liter. + Software auf Cassette. Interessenten 
melden bei: Axel Knaus, Arminstr. 7, Stgt. 1, 
Tel.: 0711/608566. Topzustand! VB 600,- DM 


Suche TM990/100 MA Mikro-Computer Anwen- 
de-Handbuch! Peter Heinz 06192/6066 


Verkaufe TI99/4A mit X Basic, Software, Joy¬ 
sticks, Rekorder und Literatur für 550 DM. 
Roland Lux, Meisenweg 28, 8264 Waldkraiburg 
Tel. 08638/674 35 


10 REM******************** 

11 REM* * 

12 REM* TI-MUEHLE * 

13 REM* Copyright by * 

14 REM* Juergen Bruehne * 

15 REM* • . . -* 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 11294 Bytes * 

25 REM******************** 

26 REM 

110 REM BEI VERWENDUNG VON 
EINEM SCHWARZWEISSFERNSEHER 
IST ES SINNVOLL IN ZEILE 85 
0 AUS DER 6 EINE 16 ZU MACHE 

N! 

120 REM ALLE REM-ZEILEN KOEN 
NEN WEGGELASSEN WERDEN 
130 CALL SCREEN(2) 

140 CALL CLEAR 

150 PRINT " JUERGEN BRUEHNE 
:" AM TANNENGARTEN 15": 

:" 354G AROLSLN-NASSENHAUSE 

N": : : : : " stellt VOR;":" 

160 FOR X=i TO 15 
170 CALL C0L0R(X,16,2) 

180 NEXT X 

190 FOR X=1 TO 500 . 

200 NEXT X 

210 CALL SCREEN(14) 

220 PRINT ::::::::: 


" IN DER GRUNDWERSION": : 


230 print : : :"* dreidimmen 

SIONALE-MUEHLE ":" - 

-»; : ;- auf 

dem:": TI-99/4A": :" von 

TEXAS INSTRUMENTS": "ENTER 

DRUECKEN": . 

240 CALL KEY(0,KE,ST) 

250 IF KE<>13 THEN 240 
260 PRINT : *. :" BENOETIGEN 
SIE": :" DIE SPIELREGELN ? 
(J/N)": : 

270 CALL KEY(0,KE,ST) 

280 IF ST=0 THEN 270 
290 IF KE=78 THEN 520 
300 CALL CLEAR 

310 PRINT ".SPIELREGE 

LN":" -----: : 

:"SINN DIESES SPIELES IST E 
s,": :"SO VIELE MUEHLEN WIE 

II • • 

320 PRINT "MOEGLICH ZU ERSCH 
LIESSEN !": :"(ES GIBT 76 MO 

EGLICHKEITEN":"ZU EINER MUEH 
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LE ZU KOMMEN)": : : "ENTER 

DRUECKEN: : : 

330 CALL KEY(0,KE,ST) 

340 IF ST=0 THEN 330 
350 PRINT " EINE MUEHLE BEST 
EHT AUS": j" 4 SPIELSTEINEN 
,DIE IN": :" EINER REIHE ANG 
EORDNET ": SEIN MUESSEN." 

s m 

360 CALL KEY(0,KE,ST) 

370 IF ST=0 THEN 360 
380 PRINT : : : :" ALSO,WENN 

MAN VIER STEINE": (DER G 

LEICHEN FARBE)-": MIT EINE 

M LINEAL DURCH": :" IHRE MIT 
TELPUMKTE": : 

390 PRINT " VERBINDEN KANN , 
HAT MAN": :" EINE MUEHLE": : 

" AM ENDE DES SPIELES ": :" 

WERTET IHR ’TI’ DIE MUEHLEN" 

400 PRINT "AUS !": ICH WU 

ENSCHE IHNEN ": EIN SPANN 

ENDES SPIEL": "ENTER DRUEC 

KEN" 

410 CALL KEY (£', KE, ST) 

420 IF KE < >13 THEN 4 10 
430 CALL CLEAR 
440 PRINT " HALT 
BALD HAETTE ICH": :" ES VER 
GESSEN !": : : :" falls sie 
KEIMEN": :" MITSPIELER HABEN 

il * i 

J 4 4 

450 PRINT " DANN KCENHEN SIE 
AUCH GEGEN': :" MICH SPIELE 
N." : DAZU GEBEN SIE NUR ’ 

TI’ " : .*" ANSTELLE DES ZWEIT 
EN" 

460 PRINT "SPIELERS EIN.": : 

:’"VIEL GLUECK IHR": :,"TI-9 
9/4A": :"ENTER DRUECKEN": : 
470 CALL KEY(0,KE,ST) 

480 IF KE<>13 THEN 470 
490 FÜR X=1 TO 15 
500 CALL COLOR(X,2,1) 

510 NEXT X 
520 CALL CLEAR 

530 PRINT "BITTE NAMEN EINGE 
BEN !": : : 

540 INPUT "SPIELER 1: ":A$ 
550 INPUT "SPIELER 2: ":B$ 
560 FOR X=i TO 32 
570 CALL VCHAR(1,X,32,24) 

580 NEXT X 

590 CALL 3CREEN(4) 

600 D(4)=T 

610 REM DEFINIERUNGEN ! 

620 CALL CHAR(130,"FFFFFFFFF 
FFFFFFF") 

630 CALL CHAR(140,"187E7EFFF 
F7E7E18") 


640 CALL CHAR(150,"1S7E7EFFF 
F7E7E18") 

650 CALL COLOR(13,2,13) 

660 CALL COLOR(14,7,1) 

670 CALL COLOR(15,6,1) 

680 CALL COLOR(12,13,13) 

690 C$="WEITER MIT" 

700 D$=" (SPACE)" 

710 E$= *MQECHTEN SIE" 

720 F$=”ES NOCHMAL VERSUCHEN 
?(J/M) " 

730 Q=140 
740 R=150 
750 T = 130 

760 CALL CHAR(131,"000000181 
8000000 ") 

770 CALL CHAR(141,"E02070AE6 
A0E090F") 

790 CALL HCHAR(1,1,141,768) 

790 H$="MUEHLEN.MUEHLE 

N" 

800 REM SPIELAUFBAU 
810 CALL CLEAR 
320 CALL SCREEN(4) 

830 PRINT " ";A$: :" 

840 CALL HCHAR(8,1,120,320) 
850 FÜR X=1 TO 16 
860 READ S 
870 READ U 

880 CALL VCHAR(13,3+ZA,X+64) 

890 CALL VCHAR(S,3+ZA,131,U) 

900 ZA=ZA + 2 

910 IF ZA=o THEN 940 

920 IF ZA=15 THEN 940 

930 IF 2A<>22 THEN 960 

940 RESTORE 4600 

950 ZA=ZA-1 

960 NEXT X 

970 FOR X=i TO 16 

980 READ S 

990 READ Z 

1000 CALL VCHAR(S,Z,T,4) 

1010 NEXT X 

1020 REM ABFRAGE DES BESTIM¬ 
MUNGSORTES (WIRD 
1030 REM MIT DER TASTATUR 
1040 REM ABGEFRAGT) 

1050 ZA=0 

1060 CALL HCHAR(21,3,Q) 

1070 CALL HCHAR(23,3,R) 

1080 CALL HCHAR(23,24,120) 
1090 CALL HCHAR(23,26,120) 
1100 CALL HCHAR(21,24,94) 

1110 CALL HCHAR(21,26,63) 

1120 Y=Q 

1130 IF YOR THEN 1150 
1140 IF B*=”TI" THEN 4210 
1150 CALL KEY(0,KE,ST) 

1160 IF ST=0 THEN 1130 
1170 IF KE<65 THEN 1130 
1180 IF KE>80 THEN 1130 




in 





1190 ON KE-64 GOTO 1200,1300 
,1410,1500,1590,1680,1770,18 
60,1950,2040,2130,2220,2310, 
2400,2490,2580 

1200 CALL GCHAR(13,3,A(4)) 
1210 IF A(4)< >T THEN 1130 
1220 REM SETZEN DER SFIEL- 
STEINE 

1230 FOR X=1 TO 4 

1240 CALL GCHAR(17-X,3,A(X)) 

1250 IF A <X)< >T THEN 1280 

1260 CALL HCHAR(17-X,3,Y) 

1270 GOTO 2670 

1280 NEXT X 

1290 GOTO 2670 

1300 CALL GCHAR(11,5,B(4)) 

1310 IF B (4)<>T THEN 1130 

1320 FOR X=1 TO 4 

1330 CALL GCHAR(15-X,5,B(X)) 

1340 IF B(X)< >T THEN 1370 

1350 CALL HCHAR(15-X,5,Y) 

1360 GOTO 2670 

1370 NEXT X 

1380 CALL GCHAR(9,7,C(4)) 
1390 IF C ( 4)< >T THEN 1130 
1400 GOTO 2670 
1410 CALL GCHAR(9,7,C(4)) 
1420 IF C < 4 ) < >T THEN 1130 
1430 FOR X=1 TO 4 
1440 CALL GCHAR(13-X,7,C(X)) 
1450 IF C(X)< >T THEN 1480 
1460 CALL HCHAR(13-X,7,Y > 
1470 GOTO 2670 
1480 NEXT X 
1490 GOTO 2670 
1500 CALL GCHAR(7,9, D (4 )) 
1510 IF D(4)< >T THEN 1130 
1520 FOR X=1 TO 4 
1530 CALL GCHAR(11-X,9,D(X)) 
1540 IF D (X)< >T THEN 1570 
1550 CALL HCHAR(11-X,9,Y) 
1560 GOTO 2670 
- 1570 NEXT X 
1580 GOTO 2670 
1590 CALL GCHAR (13,10, E (4)) 
1600 IF E < 4)< >T THEN 1130 
1610 FOR X=1 TO 4 
1620 CALL GCHAR (17-X,10,E(X) 
) 

1630 IF EOOOT THEN 1660 
1640 CALL HCHAR(17-X,10,Y) 
1650 GOTO 2670 
1660 NEXT X 
1670 ‘GOTO 2670 
1680 CALL GCHAR(11,12,F(4)) 
1690 IF F(4)< >T THEN 1130 
1700 FOR X=i TO 4 
1710 CALL GCHAR(15-X,12,F(X) 
) 

1720 IF F(X)< >T THEN 1750 


1730 CALL HCHAR(15-X,12,Y) 

1740 GOTO 2670 

1750 NEXT X 

1760 GOTO 2670 

1770 CALL GCHAR (9,14, G (4L) 

1780 IF G(4)< >T THEN 1130 

1790 FOR X=1 TO 4 

1800 CALL GCHAR(13-X,14,G(X) 

) 

1810 IF G(X)< >T THEN 1840 
1820 CALL HCHAR(13-X,14,Y) 
1830 GOTO 2670 
1840 NEXT X 
1850 GOTO 2670 
1860 CALL GCHAR(7,16,H(4)) 
1870 IF H (4 ) < > T THEN 1130 
1880 FOR X=i Tü 4 
1890 CALL GCHAR(1l-X,16,H Li) 
) 

1 900 : = h ■ ) >: > 7 then i 9 30 

1910 CALL HCHAR(li-x,16,Y) 
1920 GOTO 2670 
1930 NEXT X 
1940 GOTO 2670 
1950 CALL GCHARQ3, 17, I (4) ) 
1960 IF 1 (4)< >T THEN 1130 
1970 FOR X=1 TO 4 
I960 CALL GCHAR(17-X,17,I(X) 
) 

1990 IF I(X)< >T THEN 2020 
2000 CALL HCHAR(17-X,17,Y) 
2010 GOTO 2670 
2020 NEXT X 
2030 GOTO 2670 
2040 CALL GCHAR(11,19,J(4)) 
2050 IF J(4)< >T THEN 1130 
2060 FOR X=1 TO 4 
2070 CALL GCHAR(15-X,19,J(X) 
) 

2080 IF J(X)< >T THEN 2110 
2090 CALL HCHAR(15-X,19,Y) 
2100 GOTO 2670 
2110 NEXT X 
2120 GOTO 2670 
2130 CALL GCHAR(9,21,K(4)) 
2140 IF K(4)< >T THEN 1130 
2150 FOR X--1 TO 4 
2160 CALL GCHAR(13-X,21,K(X) 
) 

2170 IF K(X)OT THEN 2200 
2180 CALL HCHAR(13-X,21,Y) 
2190 GOTO 2670 
2200 NEXT X 
2210 GOTO 2670 
2220 CALL GCHAR<7,23,L<4)) 
2230 IF L(4)< >T THEN 1130 
2240 FOR X=i TO 4 
2250 CALL GCHAR(1l-X,23,L(X) 
) 

2260 IF L(X)< >T THEN 2290 
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2270 CALL HCHAR(il-X,23,Y) 

2280 GOTO 2670 

2290 NEXT X 

2300 GOTO 2670 

2310 CALL GCHAR <13,24,M(4)) 

2320 IF MI4JOT THEN 1130 

2330 FOR X=1 TO 4 
2340 CALL GCHAR(17-X,24,M(X) 
) 

2350 IF M(X)< >T THEN 2330 
2360 CALL HCHAR(17-X,24,Y) 
2370 GOTO 2670 
2380 NEXT X 
2390 GOTO 2670 
2400 CALL GCHAR(11,26,N(4)) 
2410 IF N(4)< >T THEN 1130 
2420 FOR X=1 TO 4 
2430 CALL GCHAR(15-X,26,N(X) 
) 

2440 IF MIXJOT THEN 2470 
2450 CALL HCHAR(15-X,26,Y) 
2460 GOTO 2670 
2470 NEXT X 
2480 GOTO 2670 
2490 CALL GCHAR(9,28,0(4)) 
2500 IF 0(4)< >T THEN 1130 
2510 FOR X=1 TO 4 
2520 CALL GCHAR(13-X,23,0(X) 
) 

2530 IF OIXJOT THEN 2560 
2540 CALL HCHAR(13-X,28,Y) 
2550 GOTO 2670 
2560 NEXT X • 

2570 GOTO 2670 
2580 CALL GCHAR v 7,30,P(4)) 
2590 IF P(4)< >T THEN 1130 
2600 FOR X=1 TO 4 
2610 CALL GCHAR(11-X,30,P(X) 
) 

2620 IF PIXJOT THEN 2650 
2630 CALL HCHAR(11-X,30,Y) 
2640 GOTO 2670 
2650 NEXT X 
2660 GOTO 2670 
2670 ZA=ZA+1 

2680 CALL SOUND(-8,560,1) 
2690 IF ZA=64 THEN 2780 
2700 IF YOGI THEN 1080 
2710 Y=R 

2720 CALL HCHAR(21,24,120) 
2730 CALL HCHAR(21,26,120) 
2740 CALL HCHAR(23,24,94) 
2750 CALL HCHAR(23,26,63) 
2760 IF B$="TI" THEN 4210 
2770 GOTO 1130 
2780 CALL HCHAR(23,24,130,3) 
2790 GOSUB 3130 
2800 2=21 
2810 3=20 
2820 G*=C$ 


2830 GOSUB 3080 
2840 2=23 
2850 G$=D$ 

2860 GOSUB 3080 
2870 CALL KEY(0,KE,ST) 

2880 IF KE<>32 THEN 2870 
2890 CALL HCHAR(1,1,141,768) 


2900 Z=13 
2910 S=3 
2920 G$=E$ 

2930 GOSUB 3080 
2940 2=15 
2950 G$=F$ 

2960 GOSUB 3080 
2970 CALL KEY(0,KE,ST) 

2980 IF ST=0 THEN 2970 
2990 IF KE<>74 THEN 3020 
3000 RESTORE 
3010 GOTO 520 
3020 CALL CLEAR 

3030 PRINT ".AUF WIEDERS 

EHEN 

3040 FOR X=1 TO 200 
3050 NEXT X 


3060 

3070 

3080 

3090 

SEC-$ 

3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
DD) < 
3340 


END 

REM SCHREIBEN DER 
STRINGS 

FOR X=1 TO LEN(6$) 

CALL HCHAR(Z,S+X-i,ASC( 
(6*,X,1)) ) 

NEXT X 
RETURN 

REM -X-MUEHLENAUSWERTUNG* 
CALL GCHAR (13,3, A(4) ) 
CALL GCHAR(11,5,B(4)) 
CALL GCHAR(9,7,C(4)) 
CALL GCHAR(7,9,D(4)) 
CALL GCHAR(13,10,E(4)) 
CALL GCHAR(li,12,F(4)) 
CALL GCHAR <9,14,6(4)) 
CALL GCHAR(7,16,H<4)) 
CALL GCHAR <13,17,I(4)) 
CALL GCHAR(11,19,J(4)) 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
SW=560 
22=0 

FOR X=1 TO 6 
READ AA,BB,CC,DD 
IF A(AA)+B(BB)+C(CC)+D( 
>SW THEN 3350 
ZZ=ZZ+1 


GCHAR(9,21,K(4)) 
GCHAR(7,23,L(4)) 
GCHAR(13,24,M(4)) 
GCHAR (11,26,N (4) ) 
GCHAR(9,28,0(4)) 
GCHAR(7,30,R(4)) 


3350 IF E(AA)+F(BB)+G(CC)+H( 
DD)< >SW THEN 3370 
3360 22=22+1 

3370 IF I(AA)+J(BB)+K(CC)+L < 


m 
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DDJOSW THEN 3390 - 

3380 ZZ=2Z +1 

3390 IF M(AA)+N(BB)+0(CC)+P( 
DDK>SW THEN 3410 
3400 ZZ=Z2+1 

3410 IF A(AA)+E(BE)+1(CC)+M( 
DD)OSW THEN 3430 

3420 ZZ=ZZ4l 

3430 IF B(AA)+F(BB)+J(CC)+N( 
DD)< >SW THEN 3450 
3440 ZZ=ZZ+i 

2450 IF C (AA) + *3 (BB) +K (CC ) +0 ( 
DDJOSW THEN 3470 
3460 ZZ=ZZ+1 

3470 IF D(AA)+H(BB)+L(CC)+P( 
DD)< >SW THEN 3490 
3480 ZZ=ZZ+1 

34 90 IF A(AA)+F<BB>+K(CCMP< 
DDJOSW THEN 3510 
3500 ZZ=ZZ+1 

3510 IF D(AA)+G(BB)+J(CC)+M( 
DD)< >SW THEN 3530 
3520 ZZ=ZZ.+ 1 
3530 NEXT X 

3540 IF Ad) +A(2) +A<3) +A(4) < 
>SW THEN 3560 
3550 ZZ=ZZ+1 

3560 IF B <1)+ B (2) +B (3) +B (4) < 
>SW THEN 3580 
3570 ZZ=ZZ+1 

3580 IF C(l)+C(2)+C(3)+C(4)< 
>SW THEN 3600 
3590 ZZ=ZZ+1 

3600 IF Dd)+D(2)+D(3)+D<4)< 
>SW THEN 3620 
3610 ZZ=ZZ+1 

3620 IF E (1)+E (2)+E (3)+E (4) < 
>SW THEN 3640 
3630 ZZ=ZZ+1 

3640 IF F d )+F (2)+F (3)+F (4) < 
>SW THEN 3660 
3650 ZZ=ZZ+1 

3660 IF G(l)+G(2)+6(3)+6(4)< 
>SW THEN 3680 
3670 ZZ=ZZ+1 

3680 IF H(l)+H(2)+H(3)+H(4)< 
>SW THEN 3700 
3690 ZZ=ZZ+1 

3700 IF J(i)+J(2) +J(3)+J(4)< 
>SW THEN 3720 
3710 ZZ=ZZ+i 

3720 IF K(l)+K(2)+K(3)+K(4)< 
>SW THEN 3740 
3730 ZZ=ZZ+1 

3740 IF L (1)+L (2)+L (3)+L (4) < 
>SW THEN 3760 
3750 ZZ=ZZ+1 

3760 IF M(i)+M(2)+M(3)+M(4)< 
>SW THEN 3780 
3770 ZZ=ZZ+1 


3780 IF Nd)+N(2)+N(3)+N(4)< 
>SW THEN 3800 
3790 ZZ=ZZ+1 

3800 IF Gi1)+0(2)+0(3)+0(4)< 
>SW THEN 3820 
3810 ZZ=ZZ+1 

3820 IF P(l)+P(2)+P(3)+P(4)< 
>SW THEN 3840 
3830 ZZ=ZZ+1 
3840 ZV=ZV+1 

3850 0N ZV GOTO 3860,3910 

3860 ZD=ZZ 

3870 ZZ=0 

3880 SW=600 

3890 RESTORE 4640 

3900 GOTO 3310 

3910 6*=H$ 

3920 Z=2 

3930 8=10 

3940 GOSUB 3080 

3950 CALL HCHAR(2,5,140) 

3960 CALL HCHAR(2,19,150) 
3970 IF ZD<20 THEN 4000 
3980 CALL HCHAR(2,7,50) 

3990 ZD=ZD-20 

4000 IF ZD<10 THEN 4030 

4010 CALL HCHAR(2,7,49) 

4020 ZD=ZD- 10 
4030 ZB=ZD+48 
4040 CALL HCHAR (2,8 , ZD) 

4050 IF ZZ<20 THEN 4080 
4060 CALL HCHAR(2,21,50) 

4070 Z2=ZZ-20 

4080 IF ZZ<10 THEN 4110 

4090 CALL HCHAR (2,21, 49 ) 

4100 ZZ=ZZ-10 
4110 ZZ=ZZ+48 
4120 CALL HCHAR(2,22,ZZ) 

4130 ZZ=0 

4140 ZD-0 

4150 ZA=0 

4160 ZV=0 

4170 RESTORE 4640 

4180 RETURN 

4190 REM BERECHNUNG FUER DEN 
* TI-99/4A’ ZUR SETZUNG DER 
SPIELSTEINE 

4210 IF A(l) +A <2) 0270 THEN 
4230 

4220 GOTO 1200 

4230 IF B(l)+B <2)0270 THEN 

4250 

4240 GOTO 1300 

4250 IF C(1)+C(2)< >270 THEN 

4270 

4260 GOTO 1410 

4270 IF D(1)+D(2)< >270 THEN 

4290 

4280 GOTO 1500 

4290 IF E(l) +E (2) 0270 THEN 

4310 
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4300 

GOTO 1590 


4310 

IF F(1)+ F(2)< >270 

THEN 

4330 



4320 

GOTO 1680 


4330 

4350 

IF G(1)+G(2)< >270 

THEN 

4340 

GOTO 1770 


4350 

4370 

IF H (1) +H (2) < >270 

THEN 

4360 

GOTO 1860 


4370 

4390 

IF I (1)+I (2)0270 

THEN 

4380 

GOTO 1950 


4390 

4410 

IF 3 <1> + J (2) <>270 

THEN 

4 400 

GOTO 2040 


4410 

4430 

IF K <1)*K(2)<>270 

THEN 

4420 

'rO'l 0 7. 130 


4 430 
4450 

IF <_ ( 1 ) +L (2) < >270 

THEN 

4440 

GOTO 2220 


4450 

4470 

IF M(1 ) +M(2) 0270 

THEN 

4460 

GOTO 2310 


4470 

4490 

IF N(1)+N(2)O270 

THEN 

4480 

GOTO 2400 


4490 

4510 

IF 0(0 +0(2)0270 

THEN 

4500 

GOTO 2490 


4510 

4530 

IF P(1)+P(2)< >270 

THEN 

4520 

GOTO 2580 


4530 

RANDOMIZE 


4540 

KK=(RND*20)-2 


4550 

IF KK<1 THEN 4540 


4560 

IF KK>16 THEN 4540 

4570 

ON KK GOTO 1200,1300,14 


10,1500,1590,1630,1770,1860, 
1950,2040,2130,2220,2310, 240 
0,2490,2530 

4580 REM DATEN FUER DEN 

4590 REM BILDAUFBAU 

4600 DATA 17,1,15,3,13,5,11, 

7 

4610 DATA 13,3,11,5,9,7,7,9, 

' 13,10,11,12,9,14,7,16,13,17, 
11,19,9,21,7,23,13,24,11,26, 
9,23,7,30 

4620 REM DATEN ZUR 
4630 REM MUEHLENAUSWERTUNG 
4640 DATA 1,1,1,1,2,2,2,2,3, 
3,3,3,4,4,4,4,1,2,3,4,4,3,2, 
1 

4650 REM ENDE DES LISTINGS 


10 REM******************** 


11 REM* * 

12 REM* DREIECK h KREIS- * 

13 REM* BERECHNUNGEN * 

14 REM* Copyright by * 

15 REM* Juergen Bruehne * 

16 REM* * 

17 REM*Bc-ncet igte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM'“' * 

23 REM Speicherbelegung * 

24 REM' «279 Bytes * 


25 REM * •>' * * * * 7 #*** * **** *** 

26 REM 

190 CALL CLEAR 

200 PRINT " l-> DREIECKEEREC 
HNUNG ( A ) B : : : " 2-> KREI8BE 
RECHNUNG"! : :" 3-> PROGRAMM 

ENDE : : : : : 

210 CALL KEY<0,K,3) 

220 IF 3=0 THEN 210 
230 CALL CLEAR 
240 IF K= 49 THEN 280 

250 IF K=50 THEN 1190 

260 TF K)51 THEN 210 

270 END 

230 PRINT " A=ANKATHETE": : " 
C—GEGENKATHETE " : : :1 -H=HYPOT 
HE MUSE ": a=ALPHA”: : " b=B 

ETA” : : ” g-GAMMA (/\=90’) ” 

290 PRINT : : ".g_ 

.,. / \ . . . 

...A. • « G " 

300 PRINT "./.\ . . . . 

................ a-H- b ” 

310 PRINT : J"WEITER MIT * EN 
TER ’ " : 9UECKSPRUMG MIT ’ R ’ ” 
320 CALL KEY(0, K,S) 

330 IF S=0 THEN 320 
340 IF K=82 THEN 100 
350 CALL CLEAR 

360 PRINT : :“ BITTE WAEHLEN 

er i H j ii _ ________ii 

£ 13 HYPOTHENUSE + A 
MKATHETE": :" £23 HYPGTHENUS 
E + GEGENKA.": : 

370 PRINT " £33 HYPOTHENUSE 
+ ALPHA": :" £43 HYPOTHENUSE 
♦ BETA": :" £53-ANKATHETE + 
ALPHA": :” £63 ANKATHETE + 
BETA": : 

380 PRINT " £73 GEGENKATHETE 
+ ALPHA": ;“ £83 GEGENKATHE 
TE + BETA": ;" £93 ANKATHETE 
+ GEGENKA." 

390 CALL KEY <0,K,S) 

400 IF S=0 THEN 390 
410 9=90 

420 IF K<49 THEN 390 
430 IF K>57 THEN 390 
440 CALL CLEAR 
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45$ ON K-48 GOTO 460,520,570 
,640,710,780,850,920,990 
460 INPUT "HYPOTHENUSE ?":HY 
470 INPUT "ANKATHETE ?"JAK 
480 IF AK >=HY THEN 470 
490 E~HY' N 2-AK^2 
500 GK=EMl/2> 

510 GOTO 1100 

520 INPUT "HYPOTHENUSE ?":HY 
530 INPUT "GEGENKATHETE ?" : G 
K 

540 IF GK>=HY THEN 530 - 
550 AK=(HY^2-GK A 2'(1/2) 

560 GOTO 1100 

570 INPUT "HYPOTHENUSE ?":HY 
580 INPUT "ALPHA ?":AL 
590 IF AL=V THEN 580 
600 CA=C0S(AL*(4*ATN(i>)/1S0 
) 

610 AK=HY*CA 

620 GK=<HY A 2-AK A 2) A (1/2) 

630 GOTO 1100 

640 INPUT "HYPOTHENUSE ?":HY 
650 INPUT 'BETA ?":BE 
660 IF BE > = V THEN 650 
670 CB=COS i BE* ( 4* ATM (1) ) / 180 
) 

680 GK=CB#HY 

690 AK = (H Y2 - GK A 2 > A (1/2) 

700 GOTO 1:0.0 

710 INPUT "ANKATHETE ?"JAK 
720 INPUT "ALPHA ?".*AL 
730 IF AL >=V THEN 720 
740 CA=COS(AL*(4*ATN(1))/180 
) 

750 HY=AK/CA 

768 GK=(HY*2-AK '2)* '1/2) 

770 GOTO 1100 

780 INPUT "ANKATHETE ?"JAK 
790 INPUT "BETA ?"JEE 
800 IF BE>=V THEN 790 
810 S£=SIN(BE*(4*ATN(i) ) /1 SjST : 
) 

820 HY=AK/SB 

830 GK=<HY A 2-AK A 2) A (1/2) 

840 GOTO 1100 

850 INPUT "GEGENKATHETE ?"JG 
K 

860 INPUT "ALPHA ?"JAL 
870 IF AL>=V THEN 860 
880 SA=SIN(AL*(4*ATN(1))/180 
) 

890 HY=6K/SA 

900 AK=(HY A 2-GK A 2> A (1/2) ' 

910 GOTO 1108 

920 INPUT "GEGENKATHETE ?‘ ; J6 
K 

930 INPUT “BETA -? J BE 
940 IF BE>—V THEN 930 
950 CB=COS(BE*(4*ATN(1))/180 
) 


960 HY=GK/CB 

970 AK=(HY A 2-GK A 2) A (1/2) 

980 GOTO 1100 

990 INPUT "ANKATHETE ?"JAK 

1000 INPUT "GEGENKATHETE ?"I 

GK 

1010 HY= { AK A 2+GK A 2) A (1 / 2) 
1020 GOTO 1100 
1030 PRINT "HYPOTHENUSE"., HYJ 
:"ANKATHETE",AK J J"GEGENKAT 
HETE",GKJ J"ALPHA",AL: :"BEI 
A",be: :"GAMMA",90: :"COS a" 
,ca: : 

1040 PRINT "SIN a",SA: :"TAN 
a" ,TA: :"COS b",CE: :"SIN b 
",sb: :"TAN £",TB 
1050 CALL KE V (8.K,S) 

1060 IF S-0 THEN 1050 

1070 IF K< >82 THEN 360 

1080 CALL CLEAR 

1090 GOTO 190 

1100 CA=AK/HY 

1110 SA-GK/HY 

1120 CB-SA 

1130 SB=CA 

1140 TA=SA/CA 

1150 T B=SB/CI : 

1160 AL=ATM(TA)*(130/(4*ATN( 
1 ) ) ) 

1170 BE=ATN(TE)*(180/(4*ATN( 
1 ) ) ) 

1180 GOTO 1030 
1190 PI=\4*ATM(1)) 

1200 PRINT : : :"WELCHER WER 

T IST GE6EEEN ?"J :" £II BüE 
CHMES9ER ( L ) " LE J RADIUS( 

r :•' : :” LSI UMFANG vu)": : 

1210 PF:INT £41 FLAECHENINH 

ALT (A)": :" lz J FORMELN": : 

:"FüER pi="iPl: :" £6) WENN 
FÜR pi EINE ANDERE": : 

1220 PRINT " ZAHL EINGESETZT 
WERDEN SOLL': :" £73 RUECKS 
PRüNG": : 

1230 CALL KEY(0,K,S) 

1240 IF S=0 THEN 1230 
1250 IF K<49 THEN 1238 
1260 IF K>55 THEN 1238 
1270 CALL CLEAR 
1280 PRINT "BITTE ZAHL EINGE 
BEN": J"DENKEN SIE DARAN FUE 
F. EIN": : " ’ , EIN ’ . ’ ZU SE 

TZEN": : : : 

1290 ON K-48 GOTO 1320,1370, 
1428,1478,1528,1300,100 
1300 INPUT " i uer- pi = : ,! :PI 
1310 GOTO 1200 
1320 INPUT "DURCHMESSER (d): 
" : D 

1330 R=D/2 
1340 U=B*PI 
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1350 A=D"2*PI/4 

1360 GOTO 1580 

1370 INPUT "RADIUS (r):":R 

'1380 D=2*R 

1390 U=D*PI 

1400 A=R"2*PI 

1410 GOTO 1580 

1420 INPUT "UMFANG (u)I"IU 

1430 D=U/PI 

1440 R=D/2 

1450 A=R A 2*PI 

1460 GOTO 1580 

1470 INPUT "FLAECHENINHALT ( 

A) I " I A 

1480 R=(A/PI)*(1/2) 

1490 D=R*2 

1500 U=D*PI 

1510 GOTO 1580 

1520 CALL CLEAR 

1530 PRINT ".FORMELN 

l " l 11 _ _« • • 

d = DURCHMESSER" I I "r=RADIUS" I 
I"u=UMFANG"I I"A=FLAECHENIN 
HALT" 

1540 PRINT I I " d=2frr ", " r = d / 
2 ": u=d*pi", "u=2*r*pi" I I 

" A=r"2*pi","A=d A 2*pi/4"I : 

I"WEITER MIT ’ENTER’"I I 
1550 CALL KEY (0,K, S ) 

1560 IF K< > 13 THEN 1550 
1570 GOTO 1190 
1580 CALL CLEAR 
1590 PRINT "DURCHMESSER I" I " 
d:",D: :"RADIUS :":" r:", 
R: :"UMFANG :“s" a:" ,u; : "F 

LAECHENINHALT I"I" AI",Al I 
"WOLLEN SIE EINEN" 

1600 PRINT "KREISABSCHNITT B 
ERECHNEN ?"I I" (J/N) ?": 
1610 CALL KEY(0,K,S) 

1620 IF S=0 THEN 1610 
1630 IF K< >74 THEN 1200 
1640 PRINT “BITTE GEBEN SIE 
DEN"! I"WINKEL EIN V'I I I 
1650 INPUT "WINKEL I “IW 
1660 IF W>360 THEN 1650 
1670 U=U*W/360 
1680 A=A*W/360 
1690 PRINT I I I I"WINKEL I" 
,WI I"FLAECHENINHALT I": I" 
Awl",Al I"UMFANG I“I I" uw 
:",us : :"weiter mit ’ENter’ 

ii • ■ 

• m 

1700 CALL KEY(0,K,S) 

1710 IF K< >13 THEN 1700 
1720 GOTO 1200 


ACHTUNG! 

089/1298011 Ab 1.10,85! 


BÖRSE 


Achtung ! Ich drucke kostenlos Eure Listings. 
Rückporto! Programme an Mcihael Wiese, Post¬ 
fach 3343, 4950 Minden 2 


Verkaufe Programme in TI und XBasic. Liste 
bei Hans Boyer Jr., Eichenstr. 17, 8075 Voh- 
burg gegen RP. 

Verk. TI-99 + Ext. Basic + Rec-Kabel + Joyst. 

+ Module: Buchungsjoumal, Munch Man, TI 
Invaders, Chissh. Trail, Addition, Subtr., Mul- 
tipl. + Basickurs + viel Softw. auf Kass. + viele 
Bücher v. Zeitschr. Auch einzeln! VB tel. 
09171/1716 

Suche Tl-User, möglichst mit Assemblerkennt¬ 
nissen im Raum Salzgitter zum Prg- und Modu- 
letausch 

Oliver Moldenhaucr, Humboldtallee 19, 3320 
SZ-1, Tel.: 05341/54411 


* Suche Adventuremodul * mit Cassetten! 

* Tausche Programme * nur Ex.-Basic! 

* Tel.: 02103/47208 * 

Module f. T199/4A ges. Angebote an A. Froberg 
Klopstockstr. 4, 2850 Bremerhaven. P.S. Zahle 
per Nachnahme 

Verkaufe/Tausche TI-org.-Laufw. 250. Inv., 
Parsec je 30,— Suche Speechv-Sy. bis 80,— 
Tel.: 07240/5300 


Verkaufe 3 Original TI-Revue Programmcasset- 
ten aus Tl-Spezial Paket 4 Hefte 6+7 DM 20,— 
02271/65673 


Suche für 99/4A preiswert Minimem, 32K Er¬ 
weiterung extern, J. Rybarski, 02271/65673 


Achtung: Habe vor Tl-Club zwecks Progr.-Aus¬ 
tausch zu gründen. M. Nagler, Tradtstr. 14, 
8492 Fürth, 09973/1517 


Verkaufe mein Grafik-Adventure „Osus-Shan 
l“;Test in Adv-Magazin: Grafik „Sehr gut“ 
deutschsprachig! In Ti-Bsic! Auch andere Spiele 
und Anwenderprogramme in Gratis. Info bei: 

W. Mskens, Kranenburgerstr. 224/4180 Goch 6 


TI 99/4A+rec+Kabel+Parsec+TI Invader 350 DM, 
Ex Basic 150 DM, Speechsyn 120 DM, TI Writer 
220 DM, TE II 50 DM alle Preise VHG, Rolf 
Dönselmann Skagerrakstr. 10c, 2960 Aurich 
Tel. 04941/4101 App. 278 


TI 99/4A + Selbstbauer W-Box / Centronics, 
32K, Epromprogrammer, GP100, viel Litera¬ 
tur + Programme. 02721/5395 

Verk. TI99/4A+Ext. Basic+Rec. Kabel'+ TI- 
Joyst. + Handbuch + Data Becker Buch / viele 
List. u.Progr. Cass. + 8 TI-Revue für DM 400,— 
Nur komplett. B. Schmitt, Tel. 09721/33843 
nach 18 Uhr 


Suche Amateurfunk-SW jegl. Art: Außerdem: 
Allg. Literatur zur Assemblerprogrammierung 
(Bücher/Tips & Tricks) 

Hartleib, Hardenbergstr. 16, 3500 Kassel 

Exbasic 2 + Painter + Hardcopy, div. Bücher 
sowie Kass. Kabel günstig !!! 

Tel. 06638/1503 
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SERVICE 


BOOGABOO 

DER MUSIKAUSCHE 

FLOH 



Boogaboo ist ein kleiner 
Floh, und dazu noch ein 
sehr musikalischer. Des¬ 
halb nimmt er alle Gefah¬ 
ren auf sich und sammelt 
seine verlorengegangenen, 
verstreuten Noten auf. 
Da er sich aber in einem 
vierstöckigen Höhlenge¬ 
wölbe befindet, ist dies 
nicht allzu leicht. Immer¬ 
fort drohen fallende Fels¬ 
brocken ihn zu erschla¬ 
gen oder fliegende Noten¬ 
schlüssel ihn aufzuspie¬ 
ßen. Zur Bewegung und 
zu seiner Hilfe stehen 
ihm aber Aufzüge und 
Gleitböden zur Verfü¬ 
gung, auf denen er wäh¬ 
rend des Fahrens völlig 
sicher ist. 

Nach dem Erscheinen 
des Titelbilds wird ge¬ 


fragt, ob eine Spielerläu- 
terang gewünscht wird. 
Ist dies nicht der Fall, 
beginnt das Spiel. Der 
Spieler steuert Boogaboo 
mit dem Joystick 2. 
Durch Drücken des 
Hebel nach oben oder 
unten wird der Aufzug 
benutzt. Er verbindet — 
bis auf einen Fall im 3. 
Bild — immer nur 2 Eta¬ 
gen miteinander. Gleich¬ 
zeitiges Drücken nach 
rechts oder links und Be¬ 
tätigen des Aktionsknop¬ 
fes am Joystick bewirkt 
das Fahren mit dem 
Gleitboden. Aufgabe ist 
es, alle verstreuten 18 
Noten aufzusammeln, 
wobei jedoch immer nur 
drei auf dem Bildschirm 
erscheinen. Dabei ist so¬ 


wohl auf die schwinden¬ 
de Zeit als auch auf zahl¬ 
reiche Hindernisse zu 
achten. Zum einen muß 
man aufpassen, daß Boo¬ 
gaboo immer festen Bo¬ 
den unter den Füßen hat, 
da er ansonsten unweiger¬ 
lich abstürzt. Zum andern 
werden ihm fallende 
Mauerteile und waage¬ 
rechte Notenschlüssel ge¬ 
fährlich. Lediglich ein 
aufrechter Notenschlü- 
sel, der jedoch nur zwei¬ 
mal in einem Bild er¬ 
scheint, bringt Bonus¬ 
punkte in Höhe der Hälf¬ 
te der gegenwärtigen 
Punktzahl. Fängt Booga¬ 
boo diesen Notenschlüs¬ 
sel, so ertönt nach Sam¬ 
meln aller Noten eine Me¬ 
lodie und die restliche 


Zeit wird zur Punktzahl 
addiert. Fängt er ihn 
nicht, gibt es keinen Bo¬ 
nus und die Melodie kann 
aufgrund des fehlenden 
Notenschlüsses nicht an- • 
gestimmt werden. 

Sind alle 18 Noten ge¬ 
sammelt, erscheint ein 
schwierigeres Bild und 
Boogaboo beginnt seine 
Sammelaktion von Neu¬ 
em. Das Spiel ist been¬ 
det, wenn alle 4 Leben 
unachtsam verspielt wor¬ 
den sind. 

Boogaboo ist auf dem 
TI-99/4A mit EXTEN- 
DED Basic programmiert. 
Ein Großteil der verwen¬ 
deten Routinen wurde in 
Unterprogrammen (Sub¬ 
programms) erstellt. Da¬ 
durch wird neben der 
Übersichtlichkeit in eini¬ 
gen Fällen auch die Aus¬ 
führungsgeschwindigkeit 
erhöht. 

Bei der Programmer¬ 
stellung habe ich bewußt 
auf effektvolle Graphik¬ 
hascherei verzichtet. So 
stellt das vorliegende Pro¬ 
gramm in Geschwindig¬ 
keit, Graphik, Sound und 
Abwechslung einen — wie 
ich meine — den Fähig¬ 
keiten des TI entsprechen¬ 
den optimalen Kompro¬ 
miß dar. In dieser Weise 
werden denn auch nach 
Initialisierung ca. 13 600 
Bytes belegt, so daß im 
Interesse eines reibungs¬ 
losen Programmablaufes 
davon abzusehen ist, 
eventuelle größere Verän¬ 
derungen vorzunehmen. 
Dementsprechend waren 
bei mir während des End¬ 
stadiums der Entwick¬ 
lung Programmverluste 
und Systemabstürze an 
der Tagesordnung. 

Wer dennoch Booga¬ 
boo eine größere Chance 
geben bzw. seine Ge¬ 
schwindigkeit erhöhen 
will, kann dies durch Än¬ 
dern der Zeile-600 bewir¬ 
ken. Hier muß' nur in den 


Bitte lesen Sie weiter auf Seite 123 
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* 

BOGGABOG * 

* 

Copyright by * 
Peter Krawinkel * 

Benoetigte Geraete * 
TI99/4Ä Konsole * 
Ext. Basic * 

Joystick (i) * 

* 

Speicherbelegung * 
11065 Bytes ’ * 

* 

********** ******* r ** 

220 CALL CLEAR :: CALL SCREE 
N(5) : : CALL MAGNIF Y(3) : : RAN 
DGMIZE 

230 FOR 1=1 TO 12 :: CALL CG 
LOR(I,16,l):: NEXT I :: call 
COLOR(10,16,7) 

240 OPTION BASE 1 :: DIN P(3 
,6,2),ZE(18),SP(18) 

250 ! 

260 ! CHAR-DEFINITIONEN 
270 ! 

280 CALL CHAR(120,"FF7F3F3F1 
20A030D3274301210080700FFFEF 
CFS489360920C086828101020C") 
290 CALL CHAR(124,"0040C0201 
Ö03040203050F057C23103800040 
608102040808040E0407C381038" 

) 

300 CALL CHAR(128,"000000001 
02SC44203050F053C43803000000 
000102846848040E04078340202" 

) 

310 CALL CHAR(132,"1C08113E0 
207020101020408106020001C08C 
43EA0F0A0C040201008040302") 
320 CALL CHAR(36,"0102020101 
0101070911110907010106C02020 
20408000C020101020C") 

330 CALL CHAR(136,"000000060 
990907F10100906" 8<RPT$ ( " 0 " , 18 
)&"S036FAA2920E") 

340 CALL CHAR(140,RPT$("0",1 
6)&"FFFF7F3FlF0F"kRPT$<"0",2 
0)&"FFFFFEFCF8F") 

350 CALL CHAR(104,"FF202020F 
F020202",112,"FF7F3F3F",113, 
"FFFEFCF8",114,"") 

360 CALL CHAR(115,"070404040 
41CSC 13",116, "1F1111111177FF 
66",117,"07040404041C2418",1 
18,"1F11111111779966",119, "C 
34224183C5A42") 

370 GOTO 620 

380 PLI, R, RI =0 :: MA=3 


10 

11 

12 

13 

14 

15 

16 

19 

20 
21 
22 
23 
26 

27 

28 

29 

30 


* 

-fr 

* 

* 

* 

* 

* 

* 

* 

¥r 

* 

* 

* 

* 


390 ! 

400 ! RÜNDENBEGINN 
410 ! 

420 R=R +1 :: R1=R1+1 :; IF R 
;3 THEN R=1 

430 AN,NS,A,B,BN,BC=0 :: TI= 
250 

440 CALL LIFT(R,P(, , ) ,AW() ) : 

: CALL NOTVER(ZE(),SP(),R) : : 
GOSUB 1140 

450 CALL BILD(R):: CALL SPRI 
TE<#1,124,16,129,57):: CALL 
COLOR(#2,2,#3,2,«4,2,«5,2,#6 
,11,#7,11) 

460 ! 

470 ! HAUPTPROGRAMM 
430 ! 

490 CALL TREFF (A,B, EN) : CAL 

l co inc(« l,«io,io,cu):: if c 

U THEN 820 ELSE GOSUB 570 
500 CALL FNS(A,B,R1,SX,BN,BC 
):: CALL COINC(#1,#10,10,CU) 
:: IF CU THEN 320 ELSE GOSUB 
570 

510 CALL TREFF(A,B,BN):: CAL 

l co inc(# 1 ,# 10 ,io,cu):: if c 

u THEN 820 ELSE GOSUB 570 
520 CALL FALL(A,B,RI,SY):: C 
ALL C0INC(#1,#10,10,CU):: IF 
CU THEN 320 ELSE GOSUB 570 
530 TI—TI-1 IF TI< = 0 THEN 
820 ELSE GOTO 490 
540 ! 

550 ! BEWEGUNG 
560 ! 

570 CALL KEY(2,K,S):: CALL J 
~OYST (2, X, Y) : I IF YOO OR S*X 
THEN CALL MOV(R,P(,,AW(), 

Y, X) 

580 CALL POSITION(#1,SX,SY): 

: CALL GCHAR((SX+7)/8,(SY+11 
)/8.,Pl):: CALL GCHAR ( (SX + 23) 

/8,(SY+11)/8,P2) 

590 IF PI< >32 THEN GOSUB 121 
0 ELSE IF P2=32 THEN 820 
600 CALL PATTERN(#1,128):: C 
ALL L0CATE(#1,SX,SY+2*X):: C 
ALL PATTERN(#1,124):: CALL L 
0CATE(#1,SX,SY+2*X) 

610 RETURN 
620 ! 

630 ! TITELBILD 
640 ! 

650 CALL CHAR(96,"Ö0000F1F3F 
3F3C3C",97,RPT$("3C",8),98," 
OOOOFFFFFFFF",99,"3C3C3F3F1F 
OF",64,"3C4299A1A199423C") 

660 CALL CHAR(100,"0000F0F8F 
CFC3C3C",101,"3C3CFCFCF8F0", 
102,"3C78F0F0F0F0783C",103," 
3C3C3C3C3C3C 11 ) 



119 








670 CALL SCREEN<5):: CALL CO 
LOR(9,16,1) 

680 PRINT ".. T bd 'bd'bd'b 'bd 
• bd'bd 'bd" 

690 PRINT "..a aa aa aa a a 
a aa aa a" 

700 PRINT “ ..ab-fa aa aabdaba 
ab-fa aa a" 

710 PRINT "..a aa aa aa aa a 
a aa aa a" 

720 PRINT "..cbecbecbecbeg g 
cbacbecbe": : : BY P.K 

RAWINKEL APRIL’85": : : : 

730 PRINT ".hh. 

. hh": : : :".hh. 

..hh": : : : : : : 

740 DISPLAY AT<20,3)BEEP:"PR 
ESS...” :: DISPLAY AT(22,3)B 
EEP:"1 > Für INSTRUCTIONS" : 

: DISPLAY AT<24,3)BEEP:"2 > 

TO PLAY " 

750 CALL SPRITE<#2,140,2,121 
,65,#7,140,11,89,97,«3,140,2 
,89,177,#6,140,1i,121,145,«1 
,124,16,113,153) 

760 CALL MUSIC(58) 

770 CALL KEY(0,K,S):: IF S=0 
THEN 770 ELSE IF K=4? THEN 
1370 

780 IF K=50 THEN CALL CLEAR 
:: CALL DEL8PR1TE(ALL):: GOT 
0 380 ELSE 770 
790 ! 

SOO ! ABSTURZ 
810 ! 

820 CALL DELSPRITE <#10 )ll IF 
BN=1 THEN 950 ELSE IF TI>0 
THEN 840 

830 DISPLAY AT<8,4):"DIE ZEI 
T WAR BEGRENZT !" II DISPLAY 
AT<12,4):"WOHL GESCHLAFEN, 
ODER ?" I: T1=250 
840 FOR 1=1 TO 4 :: CALL SOU 
ND(-139,110,5,111,5,112,5):: 

CALL PATTERN<#1,128) 

850 CALL SOUND <-139,440,5,44 

1.5.442.5) :: CALL PATTERN <#1 
,124):: NEXT I 

860 CALL PATTERN(#1,132):: C 
ALL MOTION(#1,9,0):: FOR 1=6 
60 TO 110 STEP -10 :: CALL P 
OSITION(#1,SX,SY) 

870 CALL SOUND(-139,1,5,1+1, 
5,1+2,5):: IF SX>192 THEN 89 
0 

880 .NEXT I ‘ 

890 CALL DELSPRITE(#1):: FOR 
1=1 TO 4 :: CALL S0UND(169, 

110.5.220.5) :: NEXT I 

900 MA=MA-1 :: IF MA<0 THEN 
1290 ELSE A,B=0 :: CALL SCOR 


E(PU,HI,MA,TI) 

910 CALL HCHAR(8,3,32,26):: 
CALL HCHAR(12,3,32,26):: GOT 
0 450 
920 ! 

930 ! BONUS 

940 ! 

950 FOR 1=1 TO 3 :: FOR J=22 
0 TO 330 STEP 10 :: CALL SOU 
ND(-139,J,5,J+1,5,J+2,5):: N 
EXT J :: NEXT I 
960 CALL SPRITE (#11,36,16,17 
8 9) 

970 FOR I=PU TO PU*1.5 STEP 
10*R1 :: DISPLAY AT(22,1)SIZ 
E(11):USING "SCORE #####":I 
:: CALL SOUND(39,111,5):: NE 
XT I 

980 BN,A,B=0 :: BC=2 :: PU=P 
u*1.5 :: CALL SCORE(PU,HI,MA 
,TI):: GOTO 490 

990 ! 

1000 ! NAECHSTE RUNDE 
1010 ! 

1020 CALL DELSPRITE(#10):: C 
ALL POSITION(#1,SX,SY) 

1030 FOR 1=1 TO 6 :: CALL PA 
TTERN(#1,128):: CALL LOCATE( 
#1,SX-6 ,SY):: CALL SOUND(-16 

9.440.5.444.5) 

1040 FOR J=i TO 35 :: NEXT J 
:: CALL LOCATE(#1,SX,SY):: 
CALL PATTERN(#1,124) 

1050 CALL SOUND(-169,220,5,2 

22.5) :: FOR J=1 TO 35 :: NEX 
T J :: NEXT I 

1060 CALL POSITION (#11, SX, SY, 
):: IF 5X0178 THEN 1090 ELS 
€ IF R1/3=INT(R1/3)THEN CALL 
MUSIC(58)ELSE CALL MUSIC(30 

) 

1070 FOR I=PU TO PU+TI STEP 
10 :: DISPLAY AT(22,7)SIZE(5 
):USING "#####":i 
1080 DISPLAY AT(24,26)BEEP: U 

sing ”###":PU+TI-I :: next i 
:: pu=pu+tI 

1090 TI=0 :: CALL SCORE(PU,H 
I,MA,TI):: CALL DELSPRITE(AL 
L) 

1100 CALL HCHAR<6,1,32,480): 

: CALL HCHAR(24,4,32,18):I G 
OTO 420 
1110 ! 

1120 ! NOTEN SETZEN 
1130 ! 

1140 NS=NS+3 :: IF NS>=21 TH 
EN 1020 

1150 FOR 1=0 TO 2 :: CALL HC 
HAR(ZE(NS-I)*4+1,SP(NS-I),IN 
T(RNB*4)+115) 
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1160 CALL SOUND(-99,220,5,22 

1.5.222.5) :: NEXT I 

1170 TI=TI-3 :: CALL SCORE(P 
U,HI,MA,TI):I RETURN 
1180 ! \ . 
1190 ! NOTEN SAMMELN 
1200 ! 

1210 CALL HCHAR((SX+7)/8,(SY 
+ll)/8,32>:: CALL SOUND(-99, 

110.5.333.5) 

1220 CALL HCHAR(24,NS+AN+1,I 
NT(RND*4)+115):: PU=PU+R1*10 
:: Ti=TI-l 

1230 CALL SCORE(PU,HI,MA,TI) 
1240 AN=AN+1 :: IF AN=3 THEN 
AN=0 :: GOSUB 1140 
1250 RETURN 
1260 ! 

1270 ! END OF GAME 
1280 ! 

1290 CALL DELSPRITE(ALL):: C 
ALL CLEAR :: CALL SCORE(PU,H 
I,MA+1,TI) : : DISPLAY AT(2,i) 

:">>>>>>G A M E 0 V E R<<<< 
<< " 

1300 DISPLAY AT<7,1):"VIER F 
LOEHE VERHEIZT !": :"WOHL BL 
IND WAS ?" 

1310 IF PU >HI THEN CALL SCOR 
E(PU,PU,MA+1,TI):: HI=PU ELS 
E 1340 

1320 DISPLAY AT(12,1):"TROTZ 

DEM." :: 

DISPLAY AT(14,1):"GRATULATIO 

N.HIGHSCORE !!" 

1330 CALL MUSIC(58) 

1340 DISPLAY AT(17,1):"NEUES 

SPIEI_NEUES GLUECK !“J :" 

BITTE >J< ODER >N< DRUECKEN! 

M 

1350 CALL KEYiO,K,S)i: IF S= 
0 THEN 1350 

1360 CALL CLEAR :: IF K=78 0 
R K=110 THEN STOP ELSE 330 
1370 ! 

1380 ! SPIELERLAEUTERUNG 
1390 ! 

1400 CALL DELSPRITE(ALL):: C 
ALL CLEAR 

1410 PRINT "BGGGABOO, DER MU 
SIKALISCHE": :"FLOH, WILL SE 
INE VERLORENEN": :"NOTEN WIE 
DER aufsammeln.": : :.: 

1420 PRINT "HELFEN SIE IHM D 
ABEI, INDEM": :"SIE DIE AUFZ 
UEGE (JOYSTICK": :"NACH OBEN 
/ UNTEN) ODER": : 

1430 PRINT "DIE GLEITBOEDEN 
(JOYSTICK": :"RECHTS / LINKS 
+ FIRETASTE )": :"BENUTZEN. 


1440 CALL KEY(0,K,S).*: IF S= 

0 THEN 1440 

1450 PRINT "LASSEN SIE SICH 
JEDOCH NICHT": :"VON FALLEND 
EN MAUERTEILEN": :"ODER LIEG 
ENDEN NOTENSCHLUES-": : 

1460 PRINT "SELN ERWISCHEN ! 

": :"NUR AUFRECHTE NOTENSCHL 
UES-"I :"SEL BRINGEN IHNEN D 
IE HAELF-": : 

1470 PRINT "TE IHRER PUNKTZA 
HL ALS BONUS": :"UND SPAETER 
DIE RESTLICHE": :"ZEIT IN P 
UNKTEN.": : 

1480 PRINT "DIESER NOTENSCHL 
UESSEL ER-": :"SCHEINT IM EI 

NER RUNDE NUR": :"2 MAL." 

1490 CALL KEY(0,K,S):: IF S= 

0 THEN 1490 

1500 PRINT : -."OHNE DEN NOTE 
NSCHLUESSEL ": :"GIBT’S >KEI 
NEN< BONUS, AUCH": : "NICHT A 
M RUNDENENDE ! " : : : 

1510 PRINT "EIN TIP !".* :"V0 

LLKÜMMEN SICHER SIND SIE ": 

:"NUR, WAEHREND SIE AUFZUG": 

: "ODER GLEITBODEN FAHREN ! " 

1520 PRINT ">ALPHA-LQCK< LOE 
SEN !": :"PRESS ANY KEY TO B 

EGIN." 

1530 CALL KEY(0,K,S):: IF S= 

0 THEN 1530 ELSE CALL CLEAR 
:: GOTO 380 

1540 ! 

1550 ! DATEN AUFZUEGE 
1560 ! 

1570 DATA 137,105,32,105,73, 
32,73,41,32,73,41,32,81 , l'l3, 

32.137.153.16 

1580 DATA 137,105,32,105,73, 
32,73,41,32,73,41,32,57,81,2 

4.81.145.64 

1590 DATA 137,105,32,105,73, 

32.105.41.64.73.41.32.113.16 

1.48.97.161.64 
1600 ! 

1610 ! DATEN DISPLAY>1,2,3< 

1620 ! 

1630 DATA "hhhhhhhhhh..hhfchh 
hhhhhrrhhhh",7 

1640 DATA "hhh..hhhhhrrhhhrr 
..hhh..h h h h",11 
1650 DATA "hhhrrhhhhhhhhhhhh 
hhh..hhhhhh",15 

1660 DATA "hhhhhhhhrr-hhh 

hhhrrhhhhhh",19 

1670 DATA "hhhhhhhh- <.hhh 

hhhhhhhhhhh",20 

1680 DATA 137,177,105,41,73, 

97,41,193,137,81,73,137 S# 
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1690 DATA "hhh. «hhhrr. 

.hhhhrrhhhh",7 

1700 DATA "hhhrrhhhhhhhhhhhh 

h. . hh. .hhhh M ,11 

1710 DATA "hhhhh...rrhhh..hh 

hrrhhhhhhhh",15 

1720 DATA "hhhhhhhhhhhhhrrhh 

hhhhhhhhhhh",19 

1730 DATA "hhhhhhhhhhhhh..hh 

hhhhhhhhhhh",20 

1740 -DATA 137,121,105,161,73 

,41,41,193,105,81,41,81 

1750 DATA "'hhhhhrrhhhhhhhhhh 

hhhhhhhhh.. ",7 

1760 DATA "hhhhh..hhhrr. 

. ..hh..h",11 

1770 DATA "hhhhhhhh..hhrr. . . 
...hhrrhhrr",15 
1780 DATA "hhhhhhhhrrhhhhhhh 
hhhhhhhhhhh",19 
1790 DATA " hhhhhhhh..hhhhhhh 
hhhhhhhhhhh",20 
1800 DATA 137,81,105,193,105 
,225,41,57,105,113,73,97 
1810 ! 

1820 ! DATEN MUSIKNOTEN 
1830 ! 

1840 DATA 2,23,3,10,2,29,1,7 
,4,18,3,15,4,29,1,4,2,16,3,1 
8,3,4,4,9,1,16,2,23,4,28,3,4 
,1,10,1,19 

1850 DATA 2,4,4,20,2,19,3,14 
,1,22,4,9,1,9,3,5,2,13,4,4,4 
,26,1,29,3,6,2,4,1,28,4,24,3 
,6,3,27 

1860 DATA 1,22,2,27,1,17,3,2 

4.4.19.2.10.4.26.3.28.1.4.2, 

23.2.4.4.19.3.14.1.23.4.6.2, 
27,3,4,3,23 

1870 ! 

1880 ! DATEN MUSIK. 

1890 ! 

1900 DATA 5,391,5,523,5,523, 

5.587.5.659.5.523.5.659.5.58 

7.5.493.5.523.5.523.5.587.5, 
659,10,523,5,493 

1910 DATA 5,391,5,523,5,523, 

5.587.5.659.5.698.5.659.5.58 

7.5.523.5.493.5.391.5.440.5, 
493,10,523,10,523 

1920 DATA 7.5,220,2.5,246,5, 
220,5,195,5,220,5,246,5,261, 
5,220,7.5,195,2.5,220,5,195, 
5,174,10,164,10,195 
1930 DATA 7.5,220,2.5,246,5, 
220,5,195,5,220,5,246,5,261, 
5,220,5,195,5,261,5,246,5,29 
3,10,261,5,261 
1940 SUB LIFT(R,P(,,),AW()) 
1950 ON R GOTO 1960,1970,198 
0 


1960 RESTORE 1570 :: GOTO 19 
90 

1970 RESTORE 1580 :: GOTO 19 
90 

1980 RESTORE 1590 
1990 FOR 1=1 TO 6 :: READ P ( 
R,I,1),P(R,1,2),AW(I):: NEXT 
I :: SUBEND 
2000 SUB BILD(R) 

2010 ON R GOTO 2020,2030,204 
0 

2020 RESTORE 1630 :: GOTO 20 
50 

2030 RESTORE 1690 :: GOTO 20 
50 

2040 RESTORE 1750 

2050 CALL HCHAR(1,3,104,28): 

: DISPLAY AT(2,1):RPT$("xz", 
14):: DISPLAY AT(3,1):RPT$(" 
y< " ,14) 

2060 FOR 1=1 TO 5 :: READ A$ 
,Z : : DISPLAY AT (Z , 1) *. A$ I I 
NEXT I 

2070 FOR 1=2 TO 7 :: READ Z, 

S :: CALL SPRITE(# I,140,1,Z, 

S):: next i :: subend 

2080 SUB MOV(R,P(,,),AW(),Y, 
X) 

2090 FOR 1=2 TO 5 :: CALL CO 
i nc(# l,#I,8,c(i)):: IF C(I)* 

Y THEN 2120 
2100 NEXJ I 

2110 CALL COINC(#1,#6,8,C01) 
:: call coinc(#1,#7,8,C02):: 

IF C01*X THEN 2150 ELSE IF 
C02*X THEN 2160 ELSE SUBEXIT 
2120 CALL POSITION(#1,SX,SY) 
:: IF (Y=-4 AND SX=P(R,1-1,1 
))0R<Y=4 AND SX=P(R,1-1,2))T 
HEN SUBEXIT ELSE 2130 
2130 FOR J=SX TO SX-AWd-1)* 
SGN(Y)STEP -Y/2 i: CALL LOCA 
TE(#1,J-8,SY,#1j J,SY):: NEXT 
3 

2140 CALL HCHAR((SX+15)/8,(S 

Y + 7) /8,32,2) : : CALL HCHARdS 
X+15-SGN(Y)*AW <I-1))/8, (SY + 7 
)/8,114,2):: SUBEXIT 

2150 CALL POSITION(#6,SX,SY) 
:: IF (X=4 AND SY=P(R,5,2))0 
R(X=-4 AND SY=P(R,5,1))THEN 
SUBEXIT ELSE J=5 I: GOTO 217 
0 

2160 CALL POSITION(#7,SX,SY) 
:: IF (X=4 AND SY=P(R,6,2))0 
R(X=-4 AND SY=P(R,6,1))THEN 
SUBEXIT ELSE J=6 
2170 FOR I=SY TO SY+AW(J)*SG 
N <X)STEP X/2 :: CALL LOCATE( 

# 1 ,sx-8,i,# j+ l,sx,i):: next 

I 
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2180 CALL HCHAR((SX+15)/8,(S 
-Y+7)/8,32,2):: CALL HCHAR((S 
X+15)/8,<SY+7+SGN(X)*AW<J))/ 
8,114,2) 

2190 SUBEND 

2200 SUB FNS(A,B,C,D,E,F) 
2210 IF A/2=INT(A/2)0R B=1 T 
HEN SUBEXIT ELSE IF F>1 THEN 
PA=136 :: GOTO 2230 
2220 IF RND >.26 THEN PA=136 
ELSE PA=36 :: E=1 :: F = F + 1 
2230 H=8*(-l) A (INT<RND*3)+1) 
:: IF H>0 THEN G=17 ELSE G=2 
39 

2240 CALL SPRITE(#10,PA,16,D 
-4,G,0,H+SGN(H)*C):: B=1 

2250 SUBEND 
2260 SUB TREFF(A,B,C) 

2270 CALL POSITION(#10,SX,SY 
):: IF SY*SX=0 THEN SUBEXIT 
ELSE IF SY<18 OR SY>238 OR S 
X> 145 THEN CALL DELSPRITE(#i 
0)ELSE SUBEXIT 

2280 a=a+ l :: B,c=o :: suben 

D 

2290 SUB FALL(A,B,C,D) 

2300 IF A/2<>INT(A/2)OR B=i 
THEN SUBEXIT 

2310 X=(INT(D+7)/S)*8-7 :: C 
ALL SPRITE(#10,120,16,17,X,9 
+c,0):: B=l 
2320 SUBEND 

2330 SUB NOTVER(ZE(),SP(),A) 
2340 ON A GOTO 2350,2360,237 
0 

2350 RESTORE 1840 : *. GOTO 23 
80 

2360 RESTORE 1850 :: GOTO 23 
80 

2370 RESTORE 1860 
2380 FOR 1=1 TO 18 :: READ Z 
*E(I> ,SP<I) :: NEXT I 
2390 SUBEND 

2400 SUB SCORE(A,B,C,D) 

2410 DISPLAY AT(22,1):USING 
"SCORE ##### HI ##### CO ## 
#":a,b,rpt$("w",o:: Display 

AT (24,21) : USING "TIME ###".' 
D 

2420 SUBEND 
2430 SUB MUSIC(A) 

2440 RESTORE 1900 

2450 FOR 1=1 TO A :: READ B, 

C :: CALL SOUND(B*38,C,3):: 

NEXT I 

2460 SUBEND 


ACHTUNG! 

089/1298011 Ab 1.10.85! 


BOOGÄBOO 


Fortsetzung von Seite 123 

beiden LOCATE-Befeh- 
len der Faktor vor der 
Statusvariablen ,X‘ .des 
Joysticks vergrößert wer¬ 
den. Eventuelle Verbesse¬ 
rungen oder Erweiterun¬ 
gen des Programmes kön¬ 
nen nach einer Freiset¬ 
zung von Speicherplatz 
vorgenommen werden. 
Dazu kann vielleicht die 
Spielerläuterung ersatzlos 
gestrichen und das Titel¬ 
bild dementsprechend ab¬ 
geändert werden. Dem 
Bastler stehen hier alle 
Wege offen. 

Aufbau des Programms 
BOOGÄBOO 

100—210 Programm 
Identifizierung 
220—240 Dimensionie¬ 
rungen/ Farbdefinitionen 
250—360 Character-De- 
finitionen 

370 Sprung zum Titel¬ 
bild 

380 Variablenbelegung 
390—450 Rundenzäh¬ 
ler/V ariablenbclegung 
/Bildschirmmaske/Ein- 
lesen der Aufzugs- &: 
Noten-Daten 
460—530 Hauptpro¬ 
gramm 

5 40—610 J oy stick-Ab- 
frage/Bewegung 
620-780 Titelbild 
790—901 Absturz/ 

Zeit überschritten 
920-980 Bonus 
990-1100 Nächste 
Runde 

1110—1170 Noten setzen 
1180—1250 Noten sam¬ 
meln 

1260—1360 Spielende 
1370—1530 Spielerläu¬ 
terungen 

1540-1600 Daten Auf¬ 
züge 

1610—1800 Daten Dis¬ 
play -1-2-3- 

1810—1860 Daten Mu¬ 
sik-Noten 

1870—1930 Daten Musik 
1940-1990 Sub Lift - 
Einlesen der Aufzugdaten 
2000-2070 Sub Bild - 
Bildschirmmaske 
2080-2190 Sub Mov - 


Aufzüge und Gleitböden 
bewegen 

2200-2250 Sub Fns - 
Notenschlüssel setzen 
und bewegen 
2260-2280 Sub Treff 

— Hindernisse löschen 
2290-2320 Sub Notver 

— Notenverteilung ein¬ 
iesen 

2400-2420 Sub Score - 
aktuellen Punktstand 
drucken 

2430-2460 Sub Music - 
Musik spielen 

Variabienliste zum Pro¬ 
gramm B00GAB00 

Variablen, die ausschließ¬ 
lich in Unterprogrammen 
benutzt werden, sind mit 
(S) gekennzeichnet. 

A (S) Statusvariable 
Hindernis 

AN Anzahl gesammelter 
Noten nach dem letzten 
Setzen 

AW (..) (S) Wegstrecke 
der Aufzüge und Gleit¬ 
böden 

B (S) Hinderniszähler 
BC Zähler für Bonus¬ 
chancen 

BN Statusvariable Bonus 
Hi Highscore 
IJ Schleifenvariablen 
MA Restleben 
.NS Gesamtanzahl gesam¬ 
melter Noten 
PA (S) Gegenwärtiger 
Mustercode des Noten¬ 
schlüssels • . 

PU Punkte 

P („) (S) Maximale Po¬ 
sitionen der Aufzüge und 
Gleitböden 

R Rundenzähler für Bild¬ 
schirmmaske 
RI Absoluter Runden¬ 
zähler 

SX/SY Punktzeile / 
-spalte der Spielerfigur 
SX/SY (S) Punktzeile/ 
-spalte der Aufzüge der 
Gleitböden 
TI Zeit 

SP (..) Spalte für Noten¬ 
druck 

ZE(..) Zeile für Noten¬ 
druck 

X,Y Hebelpositionen des 
J oysticks 

Peter Krawinkel 
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SERVICE 


SUPER! 

DAS SUPER 

GRAFIK-PROGRAMM 

-——— - - - —-——•—--- _______ 



Nach dem Starten des 
Programmes erscheint das 
Hauptmenue. Dort kön¬ 
nen sie zwischen 4 Mög¬ 
lichkeiten wählen. Wählt 
man Laden oder Spei¬ 
chern, dann wird man 
nach dem Namen und der 
Nummer der Datei ge¬ 
fragt. Wählt man Aufruf 
der Grafik, dann er¬ 
scheint ein -zweites Me- 
nue. Dort kann zwischen 
Erstellen und Definition 
gewählt werden. Wählt 
man Definition, so kann 
man dort mit Hilfe der 
Tastatur ein Zeichen defi¬ 
nieren. *Das Umrechnen 
in den HEX-Code macht 
der Rechner. Wählt man 
jedoch Erstellen, so kann 
man dort eine neue Gra¬ 
fik erstellen oder eine 
alte Grafik verbessern. 


Beschreibung der einzel¬ 
nen Programm teile: 


Hauptprogramm: Hier 

werden die benötigten 
Variablen initialisiert. 
LOES(chen): Hier wird 
der Grafikbildschirm ge : 
löscht und gefragt, ob 
wirklich gelöscht werden 
soll (LO(esch)FR(age)). 
SPRU(ng): Abfrage auf 
gedrückte Taste und Fest¬ 
stellung, ob eine richtige 
gedrückt wurde. 

LADE: Lädt Grafik von 
Kassette oder Diskette 
(FRAG(e)). 

SAVE: Speichert Grafik 
auf Kassette oder Dis¬ 
kette (FRAG(e)). 
HAUP(tmenue): Erstellt 
Menue für das Hauptpro¬ 
gramm. 

TITEL: Erstellt Titelbild. 
LEER: Leert Bildschirm 
und initialisiert Farben 
neu. 

GRAF(ik): Fragt, ob 

man eine Grafik erstellen 
oder ein Zeichen neu de¬ 
finieren will. 


ENDE: Fragt, ob man 
wirklich beenden will. 
ERST(elle): Wenn schon 
etwas definiert bzw. eine 
Grafik erstellt wurde, die 
alte Grafik erstellt (BILD). 
Beim Drücken einer belie¬ 
bigen Taste erscheint das 
Zeichen auf dem Bild¬ 
schirm unterhalb des Cur¬ 
sors (DRUC(ke)), solange 
ihr ASCII-Code größer 39 
und kleiner 144 ist. 

Um den Cursor zu be¬ 
wegen, müssen die Cur¬ 
sortasten in Verbindung 
mit FCTN gedrückt wer¬ 
den. Um die Farbe des 
Bildschirmes zu verän¬ 
dern, muß FCTN REDO 
drücken. Die Vorder¬ 
grundfarbe einer Gruppe 
kann durch FCTN DEL 
und die Hintergrundfarbe 
durch FCTN INS erhöht 
werden. Um diese Verän¬ 
derungen hervorzurufen, 
muß ein Zeichen dieser 
Gruppe unter dem Cur¬ 


sor sein. Mit FCTN 
BACK kann man dieses 
Unterprogramm verlas¬ 
sen. Mit FCTN AID er¬ 
hält man das Menue zu 
diesem Unterprogramm. 
SET (cursor): Zeigt, wo 
sich der Cursor befindet). 
BEST(imme): Bestimmt, 
von welcher Zeichengrup¬ 
pe die Farbe verändert 
werden soll. 

ERH(öhe): Erhöht oder 
vermindert einen Wert 
um 1 bis zu einer maxi¬ 
malen oder minimalen 
Grenze. Ist eine dieser 
Grenzen erreicht, so 
wird der Wert auf die an¬ 
dere Grenze gesetzt. 
DEFI(nieren): Hier kann 
ein Zeichen mit einer 8x8 
Matrix definiert werden. 
Nach der Definition wird 
die Frage gestellt, ob das 
Zeichen noch verändert 
werden soll, oder ob man 
en neues Zeichen definie¬ 
ren will. 

D(efi)MEN(ue): Erstellt 
das Menue zum Unter¬ 
programm DE FI. 
UMRE(chnen): Rechnet 
die Matrix in den dazu¬ 
gehörigen Ilex-Code um. 

Bedeutung der wichtig¬ 
sten Variablen: 

ZE$( ): Enthält den Teil 
des Grafikbildschirms, 
der mit DISPLAY AT 
dargestellt werden kann. 
CH$ ( ): Enthält die 
Hex-Codes der neu defi¬ 
nierten Zeichen. 

SP$ ( ): Enthält die 
Spalten, die nur mit 
HCHAR dargetellt 

werden können. 

VO ( ): Enthält die Vor¬ 
dergrundfarben der Zei- 
cengruppen. 

HI ( ): Enthält die Hin¬ 
tergrundfarben der Zei¬ 
chengruppen. 

SC: Enthält die Bild¬ 
schirmfarbe. 

DE: Gibt an, ob eine alte 
Grafik im Speicher ist. 

IJ: Zählvariablen 
ME$: Gibt die erlaubten 
Tasten an. 
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10 

i 

********************** 

11 

i 

• 

* 


* 

12 

i 

* 

SUPER-GRAF I 

* 

13 

i 

* 


* 

14 


* 

Copyright by 

* 

15 

i 

* 


* 

16 


* 

Uwe Klosa 

* 

17 

i 

* 


* 

18 

i 

* 


* 

19 

i 

* 

Benoetigte Geraete 

* 

20 

i 

* 

TI99/4A Konsole 

* 

21 

i 

* 

Ext. Basic 

* 

22 

i 

* 

Disk-Drive oder 

* 

23 

; 

* 

Kass.-Rekorder 

* 

24 

; 

* 


* 

26 

; 

* 

Speicherbelegung 

* 

27 

i 

* 

7591 Bytes 

* 

28 

i 

* 


* 

29 

i 

********************** 


100 0N WARNING NEXT :: OPTIO 
N BASE 1 :: ON BREAK NEXT :: 

CALL TITEL :: RANDONIZE 
110 DIN ZE$(24),CH$(104),SP$ 
(4),V0(14),HI(14):S DE=-1 
120 CALL L0ES(ZE$<),CH$(),SP 
$(),V0(),HI(),DE,SC) 

130 CALL HAUP 

140 ME$= M SLDEG" :: CALL SPRU 
(ME$,K) 

150 IF K=83 THEN CALL SAVE(Z 
E$(),CH$(),SP$(),VO(),HI(),S 
C) 

160 IF K=76 THEN CALL LADE(Z 
E$ ( ) , CH$ < ) , SP$ <) , VO < ) -, HI < ) , S 
C, DE) 

170 IF K=71 THEN CALL GRAF(Z 
E$(),CH*(),SP*(),VO(),HI(),S 
C,DE):: CALL DELSPRITE(#1) 
180 IF K=68 THEN 120 
190 IF K=69 THEN CALL ENDE 
200 IF K=0 THEN 140 ELSE 130 
210 SUB LOES(ZE*(),CH*(),SP* 
(),V0(),HI()yDEySC) 

220 IF DE>-i THEN CALL LOFR( 
WE):: IF WE=0 THEN SUBEXIT 
230 FÜR 1=1'TO 24 :: ZE*(I)= 
rpt*(" ",28)::.NEXT I :: for 
1=1 TO 4 :: SP*(i)= rpt*(" M 
,24):: NEXT I 

240 for 1=1 to 14 :: vom =2 
:: Hi(i)=i :: next i :: sc= 
8 :: for i=i to 104 :: ch*<i 
) = M 000 , ’&cRPT$ ( " H ,16):: NEXT 
I :: DE=o 
250 SUBEND 
260 SUB SPRU(ME*,K) 

270 CALL KEY(3,K,S):: IF S=0 
THEN 270 

280 FOR 1=1 TO LEN(ME*):: IF 
K=ASC(SEG*(ME*,1,1))THEN SU 
BEXIT 


290 NEXT I :: CALL SOUND(10, 
110,15):: K=o 
300 SUBEND 
310 SUB HAUP 

320 CALL LEER :: RESTORE 340 
330 FOR 1=1 TO 5 :: READ A* 
:: DISPLAY AT(2*i+6,5 ):a* :: 
NEXT I 

340 DATA S> GRAFIK SPEICHERN 
,L > GRAFIK LADEN,G> AUFRUF D 
ER GRAFIK,D> GRAFIK LOESCHEN 
,E> ENDE 
350 SUBEND 

360 SUB SAVE(ZE*(),CH*(),SP* 
(),V0(),HI(),SC) 

370 CALL FRAG(NA*,NU):: OPEN 
#NU:NA$,OUTPUT,SEQUENTIAL,I 
NTERNAL,FIXED 80 
380 FOR 1=1 TO 24 STEP 3 :: 
PRINT #NU:ZE*(I),ZE*(I+1),ZE 
$(1+2):: NEXT I 
390 FOR 1=1 TO 14 STEP 2 :: 
PRINT #NU:VQ<I),HI(I),VO(I+i 
),HI(i+i):: NEXT I 
400 PRINT #NU:SP*(1),SP*(2), 
SP*(3),SP*(4),SC 
410 FOR 1=1 TO 104 STEP 8 :: 

PRINT #NU:CH*(I),CH*(1+1),C 
H*(I+2) ,CH*(1+3),CH*(1+4) , CH 
*(I+5),CH*(I+6),CH*(I+7):: N 
EXT I :: CLOSE #NU 
420 SUBEND 
430 SUB FRAG(NA*,NU) 

440 CALL LEER :: DISPLAY AT( 

1,1):"D(ISKETTE ODER K(ASSET 

te ?:" :: accept at<i,28)val 

IDATE( M DKdk "):A* 

450 IF A*="D M OR A*= fl d” THEN 
NA*="DSK1 M ELSE NA*= M CS1 H 
460 DISPLAY AT<3,1):"DATEINU 
MMER ?:" :: ACCEPT AT(3,14)V 
ALIDATE(DIGIT):NU :: IF NU<0 
OR NU >255 THEN 460 
470 DISPLAY AT(5,1):"DATEINA 
me ?:" :: accept at(5,13)Val 
IDATE(UALPHA,DIGIT)SIZE( 10): 
N* : : NA*=NA*6c". H &N* 

480 SUBEND 

490 SUB LADE(ZE*(),CH*() , SP* 
(),V0(),HI<),SC,DE) 

500 CALL FRAG(NA*,NU):: OPEN 
#NU:NA*,INPUT ,SEQUENTIAL,I 
NTERNAL,FIXED 80 
510 FOR 1=1 TO 24 STEP 3 :: 
INPUT #NU:ZE*(I),ZE*(1+1),ZE 
*(I+2):: NEXT i 
520 FOR 1=1 TO 14 STEP 2 :: 
INPUT #NU:VO(I),HI(I),V0(I+1 
),Hl(I+l):: NEXT I 
530 INPUT #NU:SP*(i),SP*(2), 
SP*(3),SP*(4),SC 




540 FOR 1=1 TO 104 STEP 8 :: 

INPUT #NU:CH*(I),CH*<I+1>,C 
H*<I+2)|CH$(1+3)|CH$(1+4),CH 
*<I+5),CH*(I+6),CH$(I+7): : N 
EXT I :: CLQSE #NU 
550 SUBEND 
560 SUB LEER 

570 CALL CLEAR :: CALL SCREE 
n(5):: FOR 1=1 to 8 :: call 
COLOR(1,2,16):: NEXT I 
580 SUBEND 
590 SUB ENDE 

600 CALL LEER :: DISPLAY AT( 

1.1) :"WOLLEN SIE WIRKLICH BE 
ENDEN?" 

610 CALL SPRU("JN",K):: IF K 
=74 THEN END ELSE IF K=78 TH 
EN SUBEXIT ELSE 610 
620 SUBEND 
630 SUB LOFR(WE) 

640 CALL LEER :: DISPLAY AT( 

1.1) :"GRAFIK WIRKLICH LOESCH 
EN ?" 

650 CALL SPRU("JN",K):: IF K 
=74 THEN WE=1 ELSE IF K=78 T 
HEN WE=0 ELSE 650 
660 SUBEND 
670 SUB 6NEN 

680 CALL LEER :: RESTORE 700 
690 FOR 1=1 TO 3 :: READ A$ 
:: DISPLAY AT(2*l+8,5):A$ :: 
NEXT I 

700 DATA D> ZEICHENDEFINITIO 
N,G> GRAFIK ERSTELLEN,Q> QUI 
T 

710 SUBEND 

720 SUB GRAF(ZE$(),CH$(),SP$ 
(),V0<),HI<),SC,DE) 

730 CALL CHARSET :: CALLGME 
N :: CALL SPRU("DGQ",K):: IF 
K=68 THEN CALL DEFI(CH*<)): 

: de=i :: call delsprite<#i) 
740 IF K=71 THEN CALL ERST(Z 
E* () ,CH*(),SP*(),VO(),HI<),S 
C,DE):: CALL DELSPRITE(#1):: 

DE=1 ELSE IF K=81 THEN SUBE 
XIT 

750 GOTO 730 
760 SUBEND 

770 SUB ERST<ZE*(),CH*<), SP* 
(),V0<),HI(),SC,DE) 

780 x=i6 :: y=12 :: call cha 

R(33, M 00003C3C3C3C") : : CALL 
BILD<ZE*<),CH*<>,SP*<),V0(), 
HI(),SC,DE) 

790 CALL SETC(X,Y,SC):: CALL 
KEY<0,K,S):: IF S=0 THEN 79 

0 

800 IF K=3 THEN CALL BEST(I, 
X,Y)i: CALL ERH(VO(I),1,16): 

: CALL COLOR(I,VO <I),HI(I))E 


LSE IF K=4 THEN CALL BEST(I, 
X,Y):: CALL ERH(HI<I),1,16): 
: CALL COLOR(I,VO(I),HI<I)) 
810 IF K=6-THEN CALL ERH(SC, 
1,16):: CALL SCREEN<SG)ELSE 
IF K=15 THEN SUBEXIT ELSE IF 
K=1 THEN CALL EMEN<ZE*<),CH 
*<),V0<),HI(),SC) 

820 IF K=8 THEN X=-X :: CALL 
ERH(X,1,32)ELSE IF K=9 THEN 
CALL ERH(X,1,32) 

830 IF K=10 THEN CALL ERH(Y, 
1,24)ELSE IF K=11 THEN Y=-Y 
:: CALL ERH(Y,1,24) 

840 IF K>39 AND K<144 THEN C 
ALL DRUC(K,X,Y,ZE*<),SP*()): 

: GOTO 790 ELSE 790 

850 SUBEND 

860 SUB ERH(I,MI,MA) 

870 IF I>0 THEN D=1 ELSE D = - 
1 :: I=ABS(I) 

880 1 = 1+D :: IF I<MI THEN 1 = 
MA ELSE IF DMA THEN I=MI 
890 SUBEND 
900 SUB SETC(X,Y,SC) 

910 CALL COLOR(#1,1):: X1=X* 
8-7 :: Yl=Y*8-7 :: IF SC>2 T 
HEN FA=2 ELSE FA=16 
920 CALL SPRITE(#1,33,FA,Y1, 
XI ) 

930 SUBEND 

940 SUB DRUC(K,X,Y,ZE*(),SP* 
( ) ) 

950 CALL HCHAR(Y,X,K):: IF X 
<3 THEN SP*(X)=SEG*(SP*(X),1 
,Y-1)kCHR*(K)&SEG* < SP* < X) , Y + 
1,24-Y) 

960 IF X>30 THEN SP$(X-28)=S 
EG*(SP*(X-28),1,Y-1)&CHR*(K) 
6<SEG* (SP$ (X-28) , Y + l,24-Y) 

970 IF X>2 AND X<31 THEN ZE$ 
(Y)=SEG«(ZE$(Y),1,X-3)&CHR$< 
K)^SEG$ <ZE$(Y),X-l,30-X ) 

980 SUBEND 

990 SUB BEST(A,X,Y) 

1000 CALL GCHAR<Y,X,B):: A=I 

NT(B/8)-3 

1010 SUBEND 

1020 SUB DEFI(CH$()) 

1030 ZE=33 :: CALL CHAR(33, M 
FF818181818181FF",34,"FFFFFF 
FFFFFFFFFF"):: X=13 :: Y=1 
1040 CALL LEER :: FOR 1=1 TO 
8 :: FOR J=1 TO 8 :: CALL H 
char( i,J+12,ZE):: NEXT J :: 
NEXT I :: CALL DMEN 
1050 CALL SETC<X,Y,2):: CALL 
SPRU("10ESDXUQ",K):: IF K=4 
9 THEN ZE=34 ELSE IF K=48 TH 
EN ZE=33 ELSE IF K=8i THEN S 
UBEXIT 


1060 IF K=69 THEN Y=-Y :: CA 
LL ERH(Y,1,8)ELSE IF K=88 TH 
EN CALL ERH(Y,1,8)ELSE IF K= 
83 THEN X=-X :: CALL ERH(X,1 
3,20)ELSE IF K=68 THEN CALL 
ERH(X,13,20) 

1070 IF K=85 THEN.CALL UMRE( 
CH$())ELSE CALL HCHAR(Y,X,ZE 
):: goto 1050 

1080 DISPLAY AT(20,1):"VERAE 
NDERUNGEN VORNEHMEN ? H :: CA 
LL SPRU<"JN",K):: IF K=74 TH 
EN CALL DMEN :: GOTO 1050 EL 
SE IF K = 0 THEN 1080 
1090 DISPLAY AT<22,1):"NEUES 
ZEICHEN ?" :: CALL SPRUC'JN 
-,K);: IF K=74 THEN 1030 ELS 
E IF K=0 THEN 1090 
1100 SUBEND 
1110 SUB UMRE(CH$()) 

1120 DISPLAY AT(18,1):"WELCH 
ES ZEICHEN(ASCII) ?" :: ACCE 
PT AT(18,26)VALIDATE(DIGIT)S 
IZE(3):ZE :: IF ZE<40 OR ZE> 
143 THEN 1120 

1130 CH$(ZE-39)=RPT$("0",3-L 
EN(STR*(ZE) ) ) &STR*(ZE) 8c" H 
1140 für 1=1 TO 8 :: c*="" : 

; FOR J=13 TO 16 :: CALL GCH 
AR(i,J,G):: c$=c$8<chr*<g) :: 
NEXT J 

1150 CALL WERT(C$,CH$(ZE-39) 

):: c*="" :: for j=17 to 20 
:: CALL GCHARd, J,G):: c*=c* 
8cCHR*(G):: NEXT J 
1160 CALL WERT(C$,CH$(ZE-39) 
):: NEXT I :: DISPLAY AT(12, 

1):SEG$(CH$(ZE-39),4,16) 

1170 SUBEND 

1180 SUB WERT(C$,D$) 

1190 E=o :: FOR 1=0 to 3 :: 
IF SEG$(C$,4-I,1)=CHR*(34)TH 
EN D=2 A I ELSE D=0’ 

1200 E=E + D :: NEXT I :: H$=" 
0123456789ABCDEF" 

1210 D$=D$8cSEG$ (H$, E +1, 1) 
1220 SUBEND 

1230 SUB BILD(ZE$(),CH$(),SP 
$<),V0(),HI<),SC,DE) 

1240 CALL CLEAR :: IF DE=0 T 
HEN 1280 

1250 FOR 1=1 TO 104 :: V=VAL 
<SEG*(CH*<I),1,3)):: IF V>39 
THEN CALL CHAR(V,SEG$<CH$(I 
),4,16)) 

1260 NEXT I :: FOR 1=1 TO 24 
:: DISPLAY at<i,1):ze*(I):: 
NEXT I 

1270 FOR 1=1 TO 2 :: FOR J=1 
TO 24 :: CALL HCHAR(J,I,ASC 
<SEG$(SP*(I),J,1))):: CALL H 


CHAR<J,1+30,ASC(SEG*<SP$(I+2 
),j,l))):: NEXT J :: next I 
1280 CALL SCREEN(SC):: FOR I 
= 1 TO 14 :: CALL COLOR <I,VO( 

I),hi(I)):: next I 

1290 SUBEND 
1300 SUB DMEN 
1310 RESTORE 1330 
1320 FOR 1=1 TO 4 :I READ A$ 
:: DISPLAY AT(I*2+16,1):A$ 

:: NEXT I 

1330 DATA 0> PUNKT AUS...1> 


PUNKT EIN, E> HOCH.X> 

RUNTER,S> LINKS.D> REC 

HTS 


1340 DATA U> UMRECHNEN...Q> 
QUIT 

1350 SUBEND 
1360 SUB TITEL 

1370 CALL CLEAR :: CALL SCRE 
EN(2):: FOR 1=1 TO 14 :: CAL 
L COLOR(I,INT(RND*13+3),2)I: 
NEXT I 

1380 FOR 1=1 TO 32 :: CALL H 
CHAR(1,1,42):: CALL HCHAR(24 
,1,42):: NEXT I 
1390 FOR 1=1 TO 24 :: CALL H 
CHAR(I,1,42):: CALL HCHAR(I, 
32,42):: NEXT I :: DISPLAY A 
T<5,9):"TERRA - SOFT" :: DIS 
PLAY AT(7,9):"Praesentiert" 
1400 DISPLAY AT(10,8):"SUPER 
- GRAF I" :I DISPLAY AT(11, 
8):»===========*===" :: DISPL 

AY AT(14,1) : "-fuer TI99/4A + 
EXT + Kas/Dis" 

1410 DISPLAY AT(16,1):"Idee 
& Aus-f uehrung: Uwe Klosa" :: 
DISPLAY AT(20,5):"(c) Uwe Kl 
osa 1985" 

1420 FOR 1=1 TO 10 :: FOR J= 
1 TO 14 :: CALL COLOR(J,INT( 
RND*13+3),2):: NEXT J :: NEX 
T I 

1430 SUBEND 

1440 SUB EMEN(ZE$(),CH$(),VO 
(),HI(),SC) 

1450 RESTORE 1460 :: CALL CH 
ARSET :: CALL SCREENU6) : : F 
OR 1=1 TO 5 :: READ A$ \\ DI 
SPLAY AT(1+19,1):A$ :: NEXT 
I 

1460 DATA FCTN E>HOCH // FCT 
N X>RUNTER,FCTN S>LINKS / FC 
TN D>RECHTS,FCTN 1>V0R+1 // 
FCTN 2>HIN+1 

1470 DATA FCTN 8>SCFAR+1 / F 
CTN 9>QUIT,FCTN 7>AUFRUF DIE 
SES MENUES 

1480 CALL KEY(0,K,S):: IF S= 
0 THEN 1480 


Sfr 
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1490 FOR 1=1 TO 56 :: V=VAL< 
SEG*(CH*<I),1,3)):: IF V>39 
THEN CALL. CHARSEG$<CH$<I) 
,4,16))* 

1500 NEXT I :: FOR 1=1 TO 14 
:: CALL COLOR(I,vorn,HI(I) 


):: next i :: call screen(SC 
):: CALL CHARI33,"00003C3C3C 
3C°) 

1510 FOR 1=19 TO 24 :: DISPL 

ay at<i,1):ze$<i>:: next i„ 

1520 SUBEND 



Das Programm Touch 
Typing Teacher ist ein 
Schreibmaschinenlehr¬ 
gang für den TI99/4A. 

Es nutzt fast allen gra¬ 
phischen Möglichkeiten 
des TI99/4A und auch 
der Ton kommt nicht zu 
kurz. Wenn man intensiv 
mit dem Programm arbei¬ 
tet, kann man nach 
einiger Zeit die Tastatur 
des TI fast blind beherr¬ 
schen, aber auch wenn 
man sich nicht so inten¬ 
siv mit dem Programm 
beschäftigt, ist es nicht 
abzustreiten, daß man die 
Tastatur wesentlich 

besser beherrscht als vor¬ 
her und sich auch die 
Schreibgeschwindigkeit 
stark gesteigert hat. Das 
Programm stellt also eine 
wirkliche Alternative zu 
dem von Texas Instru¬ 
ments vertriebenen Pro¬ 
gramm Touch Typing Tu- 
tor dar. 

Der Benutzer kann 
selbst entscheiden, wann 
er genug von einer Übung 
hat, oder, wenn er glaubt, 
eine Übung gut genug zu 
beherrschen, kann er sich 
einfach eine andere 
Übung heraussuchen. 

Aber natürlich kann 
man mit dem Programm 
nicht nur üben, man kann 
z.B. auch auf Zeit schrei¬ 
ben (der Computer mißt 
die Zeit), oder Texte 
nachschreiben, die der 
Computer danji auf ihre 
Richtigkeit (orthographi¬ 
sche) überprüft. 

Das Programm besitzt 
eine benutzerfreundliche 
Menütechnik, die es je¬ 


dem Benutzer kinder¬ 
leicht macht, mit dem 
Programm umzugehen. 

Nach dem Laden des 
Programms und Eingabe 
von RUN oder vor dem 
Laden von RUN „CS1“ 
erscheint nach ein paar 
Sekunden das erste Titel¬ 
bild. Nach Drücken einer 
Taste wird der Bildschirm 
schwarz, und nach cirka 
15 Sekunden erscheint 
das eigentliche Titelbild, 
mit der Tastatur des Ti99 
/4A, auf dem Bildschirm. 
Wenn Sie nun eine Taste 
drücken, erscheint das 
Hauptmenü. Das Haupt¬ 
menü umfaßt 6 Wahl¬ 
möglichkeiten. Wenn Sie 
aus irgendeinem Unter¬ 
programm wieder zum 
Hauptmenü zurückkehren 
wollen, dann müssen Sie 
nur bei einer CALL KEY 
- Abfrage FCTN 9 einge¬ 
ben (drücken). 

Wenn Sie nun Punkt 1 
drücken, können Sie den 
Umgang mit der Tastatur 
etwas üben. Dazu druckt 
der Computer die Tasta¬ 
tur auf dem Bildschirm 
aus. Dann wird kurz er- 
klärt, mit welchen Ta¬ 
sten Sie in welches Unter¬ 
programm kommen. Mit 
FCTN 8 können Sie den 
Computer dazu veranlas¬ 
sen, daß er die einzel¬ 
nen Symbole auf die Tas¬ 
tatur druckt, da diese ja 
nicht vorhanden sind. 
Sind die Symbole ge¬ 
druckt, können Sie die 
Symbole wieder löschen. 
Dieses Unterprogramm 
dient nur als Gedanken¬ 
stütze. Mit FCTN 9 kön¬ 


nen Sie zum Hauptmenü 
zurückkehren. Wenn Sie 
aber nun irgendeine ande¬ 
re Taste drücken, be¬ 
ginnt der Computer mit 
dem „Kennenlernen der 
Tastatur“. Auf dem Bild¬ 
schirm ist nun die Tasta¬ 
tur des Ti99/4A zu se¬ 
hen, allerdings ohne Sym¬ 
bole. Wenn Sie nun ir¬ 
gendeine Taste drücken, 
erscheint das Symbol, 
welches auf der Taste zu 
sehen ist, auf der ent¬ 
sprechenden Taste auf 
dem Bildschirm und ver¬ 
schwindet kurz danach 
wieder. Wollen Sie dieses 
Symbol also länger sehen, 
müssen Sie nur den Fin¬ 
ger länger auf der ent¬ 
sprechenden Taste lassen. 

Mit diesem Unterpro¬ 
gramm können Sie ler¬ 
nen, wo die einzelnen Ta¬ 
sten liegen. Wie schon be¬ 
schrieben, können Sie 
mit FCTN 9 zurück ins 
Hauptmenü und mit 
FCTN 8 die Symbole auf 
die Tasten drucken las¬ 
sen. Bei diesem Unterpro¬ 
gramm und bei allen an¬ 
deren sollten Sie versu¬ 
chen, nicht auf die Ta¬ 
statur zu sehen, da sonst 
der Lernerfolg nicht sehr 
groß ist. 

Folgende Symbole 
können durch Drücken 
der entsprechenden Taste 
nicht'auf den Bildschirm 
gebracht werden’ (gilt nur 
für 1 und 2 aus dem 
Hauptmenü): 
alle Kleinbuchstaben (gilt 
auch für 3 und 4) 
die Zeichen Links ge¬ 
schweifte Klammer, Dop¬ 


pelstrich, Rechts ge¬ 
schweifte Klammer, Til¬ 
de, Del 

Wenn Sie eines dieser 
Zeichen eingeben, ertönt 
ein Warnton (nur bei 1 
und 2), bei 3 und 4 er¬ 
scheinen andere Zeichen, 
da die ASCII-Codes 
dieser Zeichen mit ande¬ 
ren Zeichen belegt wur¬ 
den (CALL CHAR). 

Wenn Sie 2 drücken,. 
kommen Sie in ein Unter¬ 
programm, welches über¬ 
prüft, wie gut Sie sich auf 
der TI-Tastatur ausken¬ 
nen. Auf dem Bildschirm 
erscheint nun wiederum 
die TI-Tastatur ohne 
Symbole. Allerdings er¬ 
scheint nun immer ein 
Symbol auf der Bild¬ 
schirmtastatur, welches 
Sie auf der TI-Tastatur 
finden müssen (blind, oh- , 
ne auf die Tastatur zu 
sehen). Wenn Sie die rich¬ 
tige Taste gedrückt ha¬ 
ben, ertönt eine kurze 
„Siegesmelodie“ und es 
erscheint ein neues Sym¬ 
bol. Wenn'Sie allerdings 
falsch gedrückt haben, er¬ 
scheint das falsche Sym¬ 
bol nur für kurze Zeit 
auf der Bildschirmtasta¬ 
tur und es erklingt eine 
kleine Melodie, die den 
falschen Tastendruck 
akustisch erkennen läßt. 
Falls Sie eine der nicht 
erlaubten Tasten gedrückt 
haben (siehe bei 1 alle 
Zeichen mit einem ASC 
II Code über 96), dann 
ertönt ein kurzer Warn¬ 
ton. 

Wenn sie nun einige 
Zeit mit dem Unterpro¬ 
gramm gearbeitet haben 
und Sie wollen zum 
Hauptmenü zurückkeh- 
ren, müssen Sie ebenfalls 


Bitte lesen Sie weiter auf Seite 133 
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10 

i 

********************** 

11 

i 

* 


* 

12 

i 

*TOUCH TYPING TEACHER* 

13 

i 

* 


* 

14 

i 

* 

Copyright by 

* 

15 

i 

* 

Dirk Junghans 

* 

16 

i 

* 


* 

19 

i 

* 

Benoetigte Geraete 

* 

20 

; 

* 

TI99/4A Konsole 

* 

21 

i 

* 

Ext. Basic 

* 

22 

i 

* 


* 

26 

i 

* 

Speicherbelegung 

* 

27 

i 

* 

10186 Bytes 

* 

28 

; 

* 


* 

29 

i 

********************** 

30 

i 





100 OPTION BASE 1 :: GOTO 22 

0 

110 CALL CHAR :: CALL HCHAR 

:: call clear :: call screen 
:: CALL COLOR :: call chars 
et :: call sound :: call key 

120 CALL TASTA :: CALL SONDE 
r :: CALL ANZ :: call eing : 
: CALL ABFEING 
130 JN$=" H 

140 I,S,SE,WA,DJ,DD,I,K,S,Xi 


, Y1,ZAE,I1,I2,TI 
150 DATA ABC 
160 !@P- 

170 !*bei -fragen: * 

180 !*dirk junghans * 

190 !*am -fort-biehler 9 * 

200 !*6503 mz-käste 1 * 


210 !*********************** 

220 CALL CLEAR 

230 CALL SCREEN(10) 

240 FOR 1=2 TO 8 :: CALL COL 
OR(1,5,10):: NEXT I 
250 CALL C0L0R(13,2,10,14,2, 
10 ) 

260 CALL CHAR(131,"00 H &RPT*< 
"01",7),132,"FC8485858484868 
2",133,"008040408000000C") 
270 CALL CHAR(134,"01FF80C04 
060391C",135,"8C9921213D0505 
05",136,"12BA8A8ABAA1Al Al M ) 
280 CALL CHAR<137,"0E0301",1 
38,"C4E23110180C0703",139,"2 
24C90204040A0E0") 

290 CALL CLEAR 
300 DISPLAY AT <1,1)5"DJIS" : 
: DISPLAY AT(3,6):"EIN PROGR 
AMM VON" :: DISPLAY AT(5,8): 
"DIRK JUNGHANS" 

310 DISPLAY AT(8,5):"FUER DE 
N TI99/4A VON" :: DISPLAY AT 
(16,6)I"TEXAS INSTRUMENTS" 
320 DISPLAY AT(19,1):"DAS PR 

OGRAMM WURDE DER.KLASSE 

10B DER HLS WIESBADENGEWIDM 


ET. " 

330 DISPLAY AT<11,13):CHR*(1 
31)$CHR$<132)fCHR*<133):: DI 
SPLAY AT(12,13):CHR$(134)jCH 
R*<135)JCHR*<136) 

340 DISPLAY AT(13,13):CHR$(1 
37)?CHR$(138)JCHR$(139) 

350 DISPLAY AT(24,3)I"PRESS 
A KEY TO CONTINUE" 

360 CALL KEY(0,K,S):: IF S=0 
THEN 360 

370 CALL CLEAR :: CALL CHARS 
ET I: ON BREAK NEXT 
380 CALL SCREEN(2) 

390 FOR 1=0 TO 14 :: CALL CO 
LOR(1,2,2):: NEXT I 
400 !@P+ 

410 DIM M(5),X(64),Y(64), EI$ 
(10),NA$(10) 

420 !@P- 

430 RESTORE 1920 :: FOR 1=1 
TO 64 :: READ Yl,Xi :: Y(I)= 
Yl :: X(i)=xi :: NEXT I 
440 CALL CHAR(104,RPT$("0",1 
5)&"1", 105, RPT$ ( "0" , 12) FFO 
0",106,RPT$<"0",14)&"81") 

450 CALL CHAR(107,RPT$ <"0",1 
4) &" 80 ", 108 , "0305 " &RPT$ ( " 09" 
,6) , 109, "C3A5"6cRPT$ ( "9" , 12) ) 
460 CALL CHAR(110,"C0A090909 
0909090",111,"090A0C0F",112, 
"FFOOOOFF",113,"995A3CFF",11 
4,"905030F0") 

470 CALL CHAR(101,"0000EA85E 
585E5",97,"304878CA2020203A" 
,102,"00E384E8888483",99,"00 
374282824232",115,"748484661 
515E5") 

480 M(l)=3 :: M(2)=4 :: M<3) 
=5 :: m(4)=4 :: M<5)=4 
490 CALL TASTA (MO):: CALL S 
ONDER :: CALL ANZ(X<),Y()):: 

DISPLAY AT(2,4):"TOUCH TYPI 
NG TEACHER" 

500 DISPLAY AT(21,2):"(C) 19 
85 BY DIRK JUNGHANS" 

510 DISPLAY AT(24,4):"PRESS 
ANY KEY TO BEGIN" 

520 CALL SCREEN(16) 

530 FOR 1=0 TO 8 :: CALL COL 
0R(I,2,16):: NEXT I 
540 FOR 1=9 TO 12 :: CALL CO 
LOR(1,5,16):: NEXT I 
550 CALL KEY(0,K,S):: IF S=0 
THEN 550 
560 CALL CLEAR 
570 DISPLAY AT<1,1):"DJIS" 
580 DISPLAY AT(5,1):"1 = >KEN 

NENLERNEN MIT DER.TAS 

TATUR" 

590 DISPLAY AT(8,1):"2 =>WIE 





1 JEDOCH MIT.... .VOR 

GEGEBENEN ZEICHEN" 

600 DISPLAY AT(11,1):"3 = >NA 

CHSCHREIBEN VORHER.EI 

NGEGEBENENER TEXTE" 

610 DISPLAY AT(14,1):"4 = >SC 

HREIBEN AUF ZEIT VON.FR 

EIEN TEXTEN" 

620 DISPLAY AT(17,1):"5 = >DR 


UCKEN DER TASTATUR AUF....BI 
LDSCHIRM" 

630 DISPLAY AT(20,1):"6 = >EN 
DE" 

640 DISPLAY AT (24,4)'. "CHOOSE 
A KEY TO BEGIN" 

650 CALL KEY(0,K,S):: IF S=0 
THEN 650 

660 IF K<49 OR K>54 THEN 650 

670 ON K-48 GOTO 740,1470,85 

0, 1570,1850,680 

680 CALL CLEAR 

690 DISPLAY AT(1,1):"DJIS M : 

: DISPLAY AT(10, 2)I"WOLLEN S 
IE EIN NEUES" 

700 DISPLAY AT(11,2):"PROGRA 
MM LADEN ???" 

710 DISPLAY AT(15,10):"(J/N) 

" :: ACCEPT AT(15,16)BEEP VA 
LIDATE("J","N")SIZE <1) I JN* 
720 IF JN*="N" THEN STOP 
730 CALL CHARSET :: CALL CLE 
AR :: RUN "CS1" 

740 CALL CLEAR 
750 CALL T ASTA (MO) 

760 CALL SONDER 

770 DISPLAY AT(1,1):"DJIS" : 

: DISPLAY AT(3,2) l "NR. 1" 

780 DISPLAY AT(20,2)I"PRESS 
FCTN 8 TO PRINT KEYS" 

790 DISPLAY AT(21,2):"PRESS 
FCTN 9 TO RETURN"- 
800 DISPLAY AT(24,2):"PRESS 
NOW A KEY TO GO ON" 

810 CALL KEY(0,K,S):: IF S=0 
THEN 810 

820 DISPLAY AT(20,1):RPT*("" 
,28):: DISPLAY AT(21,1):RPT* 
("",28):: DISPLAY AT(24,1):R 
PT*("",28) 

830 CALL EING(Y(),X()) 

840 GOTO 560 
850 CALL CLEAR :: ZAE=0 
860 PRINT "JETZT KOENNEN SIE 
EINEN":"VON IHNEN EINGEGEBE 
N TEXT":"NACHSCHREIBEN.ZUERS 
T,MUESSEN" 

870 PRINT "SIE EINEN 10 ZEIL 
IGEN TEXT" :"EINGEBEN.DANACH 
ERSCHEINT" 

880 PRINT "DER TEXT IMMER ZE 
ILE FUER":"ZEILE AUF DEM BIL 


DSCHIRM," • 

890 PRINT "DIE SIE DANN NACH 
SCHREIBEN":"MUESSEN.": : : : 
900 PRINT TAB(2):"PRESS ANY 
KEY TO CONTINUE" 

910 DISPLAY AT(1,1):"DJIS"": 

: DISPLAY AT(3,2):"NR.3" 

920 CALL KEY(0,K,S):: IF S=0 
THEN 920 :: IF K=15 THEN 56 

0 

930 CALL CLEAR :: DISPLAY AT 
(1,1):"DJIS" 

940 DISPLAY AT(3,5):"EINGABE 
DES TEXTES" 

950 DISPLAY AT(5,1):"START" 

:: DISPLAY AT<17,25):"ENDE" 
960 DISPLAY AT(12,3):"PRESS 
ANY KEY TO START" 

970 CALL KEY(0,K,S):: IF S=0 
THEN 970 IF K=15 THEN 56 

0 

980 DISPLAY AT(12,3):RPT*("" 
,22) 

990 FOR 1=1 TO 10 

1000 ACCEPT AT(I + 5,1):EI* <I) 

1010 NEXT I 

1020 DISPLAY AT(20,1):"DIE E 
INGABE IST BEENDET" 

1030 DISPLAY AT(24,2):"PRESS 
ANY KEY TO CONTINUE" 

1040 FOR 1=1 TO 50 :: NEXT I 
1050 CALL KEY(0,K,S):: IF S= 
0 THEN 1050 :: IF K=15 THEN 
560 

1060 CALL CLEAR :: ZAE=0 
1070 DISPLAY AT(1,1):"DJIS" 

:: DISPLAY AT(3,2):"NR. 2" 
1080 DISPLAY AT(10,2):"r DIE 
SEN TEXT NACHSCHREIBEN" 

1090 DISPLAY AT(6,1):RPT*("- 

",28): :rpt*("-",28):: displ 

AY AT(11,1):RPT*("=",28): :R 
PT*("=",28) 

1100 FOR 1=1 TO 10 

1110 DISPLAY AT <12,1)BEEP:EI 

*(I) 

1120 ACCEPT AT(7,1):NA*(I) 
1130 NEXT I 

1140 DISPLAY AT(15,6):"BITTE 
WARTEN !!!" ' 

1150 FOR 1=1 TO 10 
1160 IF NA*(I)< >EI*(I)THEN G 
OSUB 1430 
1170 NEXT I 

1180 DISPLAY AT(18,2):"SIE M 
ACHTEN " \ ZAE;" FEHLER" 

1190 DISPLAY AT(19,2):"BEIM 
ABSCHREIBEN" 

1200 DISPLAY AT(22,1):"1 =>D 
RUCKEN DER BEIDEN TEXTE" 

1210 DISPLAY AT(23,1):"2 =>N 
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OCHMAL NACHSCHREIBEN" 

1220 DISPLAY AT<24,1):"FCTN 
9 =>ZURUECK ZUM MENUE" 

1230 CALL KEY(0,K,S):: IF S= 

0 THEN 1230 :: IF K=15 THEN 
560 

1240 IF K=49 THEN 1260 
1250 IF K=50 THEN 1060 ELSE 
1230 

1260 CALL CLEAR 

1270 DISPLAY AT<1,1):"DJIS" 

:: DISPLAY AT(3,2):"NR. 2" 
1280 DISPLAY AT<24,4):"PRESS 
A KEY TO PRINT" 

1290 CALL KEY(0,K,S):: IF S= 
0 THEN 1290 :: IF K=15 THEN 
560 

1300 DISPLAY AT(4,1):"EINGAB 
ETEXT" 

1310 FOR 1=1 TO 10 :: DISPLA 
Y AT <1+5,l): ei*<i):: next i 
1320 DISPLAY AT<19,1):RPT*<" 
-",28): :RPT*<"-",28) 

1330 DISPLAY AT<18,1):"NACHS 
CHREIBE TEXT" 

1340 DISPLAY AT(24,2):"PRESS 
ANY KEY TO CONTINUE" 

1350 FOR 1=1 TO 10 
1360 DISPLAY AT<20,1):NA$<I) 
1370 FOR 12=1 TO 50 :: NEXT 
12 

1380 CALL KEY(0,K,S):: IF S= 
0 THEN 1370 :: IF K=15 THEN 
560 

1390 NEXT I 

1400 DISPLAY AT <23,1)I"1 =>N 
OCHMAL NACHSCHREIBEN" 

1410 DISPLAY AT<24,1):"FCTN 
9 =>ZURUECK ZUM MENUE" 

1420 CALL KEY(0,K,S):: IF S= 
0 THEN 1420 !! IF K=15 THEN 
560 :: IF K=49 THEN 1060 ELS 
E 1420 

1430 FOR 11=1 TO 28 
1440 IF SEG*(NA*<I) , II, DOS 
EG*< EI$(I),11,1)THEN ZAE-ZAE 
+ 1 / 

1450 NEXT II 
1460 RETURN 
1470 CALL CLEAR . 

1480 DISPLAY AT<1,1):"DJIS" 
:: DISPLAY AT <3,2):"NR. 2" 
1490 CALL TASTA(MO) 

1500 CALL SONDER 
1510 DISPLAY AT<20,2):"PRESS 
FCTN 9 TO RETURN" 

1520 DISPLAY AT<24,2):"PRESS 
NOW A KEY TO GO ON" 

1530 CALL KEY<0,K,S>:: IF S= 
0 THEN 1530 

1540 DISPLAY AT<20,1):RPT*<" 


",28)i: DISPLAY AT<24,1):RPT 
* <"",28) 

1550 CALL ABFEINGXY(),X()) 
1560 GOTO 560 
1570 CALL CLEAR 
1580 TI=0 

1590 DISPLAY AT<1,1>:"DJIS" 

:: DISPLAY AT(3,2) l "NR. 4" 
1600 DISPLAY AT<6,1):"BITTE 
DRUECKEN SIE EINE":"TASTE,DA 
NN BEGINNT DER":"ZAEHLER ZU 
ZAEHLEN" 

1610 DISPLAY AT(9,1) l "UND SI 
E KOENNEN BEGINNEN":"MIT DEM 
SCHREIBEN."VIEL GLUECK !". 
1620 DISPLAY AT<13,1):"SIE M 
UESSEN 168 ZEICHEN":"SCHREIB 
EN.DIE SCHWARZEN" 

1630 DISPLAY AT<15,1):"KAEST 
CHEN WERDEN AM ENDE":"NICHT 
MITGEZAEHLT." 

1640 DISPLAY AT<17,1):"SIE K 
OENNEN AUCH KEINE"I"KORREKTU 
REN AM TEXT VOR-" 

1650 DISPLAY AT<19,1):"NEHME 
N.SCHREIBEN SIE DES-":"HALB 
BEI EINEM FEHLER":"WEITER." 
1660 DISPLAY AT<24,3):"PRESS 
ANY KEY TO START" 

1670 CALL KEY<0,K,S):: IF S= 
0 THEN 1670 :: CALL CLEAR 
1680 DISPLAY AT<1,1):"DJIS" 

:: DISPLAY AT(3,2):"NR. 4" 
1690 DISPLAY AT<4,1):"START" 
:: DISPLAY AT(11,25):"ENDE" 

1700 s=o :: se=5 :: wa=3 
1710 CALL KEY(0,K,S):: TI=TI 
+1 :: IF S=0 THEN 1710 . 

1720 CALL HCHAR(SE,WA,K):: C 
ALL HCHAR<SE,WA+1,30) 

1730 WA=WA+1 

1740 IF WA>30 THEN WA=3 :: S 

E=Sfe+l ELSE 1750 

1750 IF NOT SE>10 THEN GOTO 

1710 

1760 DISPLAY AT<17,2):"SIE B 
RAUCHTEN FUER 168" 

1770 DISPLAY AT<18,2):"ZEICH 
EN "|TI 

1780 DISPLAY AT<19,2):"ZEITE 
INHEITEN." 

1790 DISPLAY AT<20,2):"NICHT 
SCHLECHT !!!" 

1800 DISPLAY AT(23,2):"1 =>N 
OCH EINMAL" 

1810 DISPLAY AT<24,2):"FCTN 
9 = >ZURUECK ZUM MENUE" 

1820 FOR 1=1 TO 100 :: NEXT 
I 

1830 CALL KEY<0,K,S):: IF S= 
0 THEN 1820 :: IF K=49 THEN 


«» 
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1570 :: IF K< >15 THEN 1830 
1840 GOTO 560 
1850 CALL CLEAR 
1860 DISPLAY AT<1,1):"DJIS" 

:: DISPLAY AT(3,2)*."NR. 5" 
1870 CALL TASTA(MO) 

1880 CALL SONDER 
1890 CALL ANZ(X () , Y () ) 

1900 DISPLAY AT<24,4):"PRESS 
A KEY TO RETURN" 

1910 CALL KEY(0,K,S):: IF S= 
0 THEN 1910 GOTO 560 
1920 DATA 6,4,9,23,6,8,6,10, 

6.12.6.16.9.21.6.20.6.22.6.1 
8,6,24,15,21,9,25,15,23,9,25 
, 6,22 

1930 DATA 6,4,6,6,6,8,6,10,6 
,12,6,14,6,16,6,18,6,20,12,2 
4,12,24,15,21,6,24,15,23 
1940 DATA 9,19,6,6,12,6,15,1 

5.15.11.12.10.9.9.12.12.12.1 
4,12,16,9,19,12,18,12,20 
1950 DATA 12,22,15,19,15,17, 
9,21,9,23,9,5,9,11,12,8,9,13 
,9,17,15,13,9,7,15,9,9,15,15 
,7 

1960 DATA 9,11,15,7,9,13,6,1 
4,9,17,15,11 
1970 !@P + 

1980 SUB TASTA(M())!I DJ=5 
1990 FOR 1=1 TO 5 
2000 DISPLAY AT<DJ,M<I)):"h" 
&RPT$<"ij",10)k"ik" 

2010 DISPLAY AT(DJ +1,M(I))\" 

1 M ßeRPT$ (" m", 10) 6e" n" 

2020 DISPLAY AT <DJ + 2,M(I))S" 
o" 6cRPT$ ("pq",10)k"pr M 
2030 DJ=DJ+3 
2040 NEXT I 

2050 CALL HCHARU7, 11,105,15 
):: CALL HCHAR(19,11,112,15) 
SS CALL HCHAR(18,11,32,15) 
2060 CALL HCHAR(14,28,105)S: 

CALL HCHAR(14,29,107)\: CAL 
L HCHAR(15,28,32)!: CALL HCH 
AR<15,29,110) 

2070 CALL HCHAR (16,28, 112)I 
CALL HCHAR(16,29,114) 

2080 SUBEND 

2090 SUB ABFEING(Y(),X()) 
2100 DD=INT<(96-32+1)*RND)+3 

2 

2110 IF DD=32 THEN GOSUB 226 
0 :: GOTO 2130 ELSE 2120 
2120 CALL HCHAR(Y(DD-32),X(D 
D-32)+2,DD) 

2130 CALL KEY(0,K,S)i: IF S= 
0 THEN 2130 

2140 IF K=15 THEN SUBEXIT 
2150 IF K>96 OR K<32 THEN CA 
LL SOUND(100,300,3,-7,3):: G 


OTO 2130 :: ELSE 2160 
2160 IF KODD AND K=32 THEN 
GOSUB 2270 :: GOTO 2240 ELSE 
IF KODD THEN 2210 
2170 CALL SOUND(100,392,0):: 
CALL SOUND(100,392,0,330/O) 
:: CALL SOUNDdOO,392,0,330, 
0):: CALL S0UND(200,440,0,39 
2 ,0) 

2180 CALL SOUND(200,392,0,33 
0 ,0) 

2190 IF DD< >32 THEN 2200 :: 
CALL HCHAR(18,15,32,5):: GOT 
0 2100 

2200 CALL HCHAR(Y(DD-32),X(D 
D-32)+2,32):: GOTO 2100 
2210 CALL HCHAR(Y(K-32), X (K- 
32)+2,K) 

2220 FOR 1=1 TO 30 :: NEXT I 
2230 CALL HCHAR(Y(K-32),X(K- 
32)+2,32).*: CALL HCHAR(Y(DD- 
32),X(DD-32)+2,DD) 

2240 CALL SOUND(100,220,0): : 

CALL SOUNDdOO, 175,0) I : CAL 
L S0UND(200,-3,0) 

2250 GOTO 2130 

2260 CALL HCHAR(18,15,30,5) : 

I RETURN 

2270 CALL HCHAR(18,15,30,5) 
2280 FOR 1=1 TO 30 II NEXT I 
2290 CALL HCHAR(18,15,32,5): 

: RETURN 

2300 SUBEND 

2310 SUB ANZ(X(),Y<)) 

2320 FOR 1=12 TO 59 :: IF 1+ 
32>90 OR I+32<44 OR 1+32=45 
OR 1+32=58 OR 1+32=60 OR 1+3 
2=62 OR 1+32=63 OR 1+32=64 T 
HEN 2340 

2330 CALL HCHAR(Y(I),X(I)+2, 
1 + 32) 

2340 NEXT I 

2350 SUBEND 

2360 SUB SONDER 

2370 CALL HCHAR(15,27,115):: 

CALL HCHAR(12,28,101) 

2380 CALL HCHAR(15,7,115):I 
CALL HCHAR(18,7,97):: CALL H 
CHAR(18,9,99):: CALL HCHAR(1 
8,27,102) 

2390 SUBEND 

2400 SUB EING(Y(),X()) 

2410 CALL KEY(0,K,S)i: IF S= 
0 THEN 2410 :: IF K<>6 THEN 
2440 

2420 CALL ANZ(X(),Y()) 

2430 GOSUB 2510 SS GOTO 2410 
2440 IF K=15 THEN SUBEXIT 
2450 IF K< >32 THEN 2460 ELSE 
CALL HCHAR(i8,15,30,5):: GO 
TO 2500 
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2460 IF K>96 0R K<33 THEN CA 
LL SOUND <100,300,3,-7,3 )\l G 
OTO 2410 ELSE 2470 
2470 CALL HCHAR(Y(K-32),X<K- 
32)+2,K) 

2480 FOR 1=1 TO 30 :: NEXT I 
:: CALL HCHAR(Y(K-32),X(K-3 
2)+2,32) 

2490 GOTO 2410 

2500 CALL HCHAR(18,15,32,5): 

I GOTO 2410 

2510 DISPLAY AT(24,3):"PRESS 
A KEY TO ERASE KEYS" 

2520 CALL KEY(0,K,S):: IF S= 
0 THEN 2520 :: DISPLAY AT<24 
,3):RPT$<"",25) 

2530 FOR 1=12 TO 59 :: CALL 
HCHAR(Y(I),X(I)+2,32):: NEXT 
I :: RETURN 
2540 SUBEND 
2550 !@P- 
2560 END 
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wie in allen anderen Un¬ 
terprogrammen lediglich 
FCTN 9 drücken. 

Wenn Sie 3 drücken, 
gelangen Sie in das Unter¬ 
programm „Nachschrei¬ 
ben vorher eingegebener 
Texte“. Nun können Sie 
einen vorher eingegebe¬ 
nen Text nachschreiben. 
Dazu erscheint zuerst ein¬ 
mal eine kurze Erklärung 
auf dem Bildschirm, was 
in diesem Unterpro¬ 
gramm gemacht werden 
muß. 

Im oberen Teil des 


Bildschirms wird jeweils 
eine Zeile angezeigt, die 
Sie dann in der Zeile 
etwas darunter nach¬ 
schreiben müssen. Auch 
hier müssen Sie wieder 
spätestens am Ende der 
Zeile ENTER drücken. 
Wenn Sie dies gemacht 
haben, wird die nächste 
Zeile eingeblendet, die 
Sie dann nachschreiben 
müssen. Haben Sie alle 
10 Zeilen nachgeschrie¬ 
ben, müssen Sie dann 
etwas warten, weil der 
Rechner dann überprüft. 


ob Sie Fehler beim Ab¬ 
schreiben gemacht haben. 
Die AnzÄl der Fehler 
wird dann angezeigt. Da¬ 
nach können Sie dann 
wieder wählen, ob Sie 
mit FCTN 9 ins Me- 
nue zurück wollen, ob Sie 
mit 2 den Text noch¬ 
mal nachschreiben wol¬ 
len oder ob Sie mit 1 den 
nachgeschriebenen und 
den nachzuschreibenden 
Text angezeigt haben 
wollen. 

Wenn Sie 4 drücken, 
können Sie messen, wie 
schnell Ihre Schreibge¬ 
schwindigkeit ist. Zuerst 
erscheint auch hier wie¬ 
der eine kurze Einlei¬ 
tung, was in diesem Un¬ 
terprogramm zu machen 
ist. Wenn Sie sich die 
kurze Einleitung durchge¬ 
lesen haben, müssen Sie 
eine Taste drücken, da¬ 
mit das Programm fort¬ 
fährt. 

Wenn Sie 5 im Haupt¬ 
menü gewählt haben, 
druckt der Computer Ih¬ 
nen noch einmal die TI- 
Tastatur auf dem Bild¬ 
schirm aus, damit Sie 
noch einmal einen Über¬ 
blick bekommen, wo 
die einzelnen Tasten auf 
der Tastatur liegen. Das 
können Sie natürlich 
auch auf der richtigen Ta¬ 
statur machen, aber er¬ 
stens sollen Sie bei dem 
Programm ' nie auf 
die Tastatur sehen und 
zweitens gewöhnen Sie 
sich dann besser an die 
Bildschirmtastatur, wenn 
Sie z.B. mit Nr. 1 des 
Hauptmenüs arbeiten 
wollen. 

Falls Sie 6 drücken, 
können Sie das Pro¬ 
gramm beenden. Zuerst 
werden Sie aber noch ge¬ 
fragt, ob Sie ein neues 
Programm laden wollen? 
Wenn Sie ja drücken, 
gibt der Rechner automa¬ 
tisch die Anweisungen 
auf dem Bildschirm aus, 
um ein neues Programm 
zu laden (z.B. Rewind 
Cassette Tape). Wenn Sie 
Besitzer einer Disketten¬ 
station sind, müssen Sie 
nur die Zeile 780 ändern. 
Wenn Sie aber statt J, N 


drücken, wird das Pro¬ 
gramm beendet. 

Variablenliste: 

STRINGS: 

JN$ — String für die 
JA/NEIN-Ab frage in 
Nummer 6 des Haupt¬ 
menüs 

EI$ ( ) — String (Daten¬ 
feld) für den nachzu¬ 
schreibenden Text in 
„Nachschreiben vorher 
eingegebener Texte“ 

NA$ ( ) - String (Da¬ 
tenfeld) für den nachge¬ 
schriebenen Text in 
„Nachschreiben vorher 
eingegebener Texte“ 

VARIABLE: 

I, II, 12 — Variable für 
FOR-NEXT Schleifen 
ZAE — Variable für die 
Anzahl der Fehler in 
„Nachschreiben vorher 
eingegebener Texte“ 

TI — Variable für die 
gebrauchten Zeiteinhei¬ 
ten in „Schreiben auf 
Zeit von freien Texten“ 

SE — Variable für den 
senkrechten Standpunkt 
des Cursors in „Schreiben 
auf Zeit von freien Tex¬ 
ten“ 

WA — Variable für den 
waagerechten Stand¬ 
punkt des Cursors in 
„Schreiben auf Zeit von 
freien Texten“ 

K, S — Variable für die 
CALL KEY-Abfrage 
DJ — Wert für den waage¬ 
rechten Standpunkt der 
Tasten auf der Bildschirm¬ 
tastatur 

DD — Zufallswert für die 
Auswahl der Symbole in 
Nr. 2 des Hauptmenüs 
XI, Y1 — Werte für die 
„Data-Auslesung“ 

M ( ) — Variable (Daten¬ 
feld) für den senkrechten 
Standpunkt der Tasten 
auf der Bildschirmtasta- 
tur 

X ( ) - Variable (Daten¬ 
feld) für den X-Wert der 
einzelnen Symbole auf 
der Bildschirmtastatur 
Y ( ) — Variable (Daten¬ 
feld) für den Y-Wert der 
einzelnen Symbole auf 
der Bildschirmtastatur 

Dirk Junghans 

* 
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SPRITE- 

KONSTRUKTEUR 


Wie hat man früher Spri¬ 
tes auf dem TI-99/4A er¬ 
stellt? Man nahm Zettel 
und Bleistift und zeich¬ 
nete zunächst einen Ra¬ 
ster mit 16 mal 16 Fel¬ 
dern auf das Papier. Dann 
mußte man sich zunächst 
das Sprite gründlich über¬ 
legen, denn probieren 
war viel zuviel Arbeit. 
Schließlich kritzelte man 
das Sprite in den Raster 
und wenn es dann doch 
nicht den Anforderungen 
entsprach, blieb einem 
nichts anderes übrig als 
der Griff zum Radier¬ 
gummi. Der Fehler wurde 
also nun ausradiert, die 
Rasterlinien nachgezogen 
und die Prozedur von 
neuem wiederholt. 

Dann kam der pein¬ 
lichste Teil der Arbeit: 
Mühevoll mußte man in 
Zusammenarbeit mit dem 
Bedienungsbuch die Hex¬ 
codes raussuchen — dau¬ 
erndes Vergleichen mit 
der Zeichnung und dem 
Änleitungsbuch. Hatte 
man nun schließlich tat¬ 
sächlich die sechzehn 
richtigen Codes herausge¬ 
schrieben, so sah man 
sich zunächst einmal das 
neue Sprite am Bild¬ 
schirm an. Dazu mußte 
die Kolonne natürlich zu¬ 
erst eingegeben werden, 
ein eigenes Programm da¬ 
für geschrieben werden, 
usw. 

Jeder TI-99-Besitzer 
kennt diese Arbeiten nur 
zu gut. Oftmals verdirbt 
nur der Gedanke an sie 
dem Programmierer die 
Lust, ein neues Pro¬ 
gramm zu machen. 

Wie kann man nun 
Sprites auf dem TI-99/4A 
erstellen? Ganz einfach: 
Mit dem Spriteconstruc- 


tion-Set. Legen Sie Ihre 
Zettel, Bleistifte, Radier¬ 
gummi und Bedienungs¬ 
anleitungen ruhig zur Sei¬ 
te. Mit dem Spritecon- 
struction-Set wird das Er¬ 
stellen von Sprites ein 
Kinderspiel. Sie malen 
die Form des Sprites ein¬ 
fach auf den Bildschirm, 
lassen es vom Computer 
in jeder beliebigen Dar¬ 
stellungsart bearbeiten, 
können sich das Ganze 
auch in „Natura“ an¬ 
schauen und bei Mißfal¬ 
len nach Belieben Ände¬ 
rungen vornehmen. Auch 
die lästige - Arbeit der 
Hex-Code-Bestimmung 
übernimmt für Sie nun 
der Computer. Und als 
Krönung haben Sie die 
Möglichkeit, bis zu 18 
Sprites „aufzuheben“, 
um sie später nochmals 
anzusehen, oder mit an¬ 
deren Sprites zu verglei¬ 
chen. 

Spriteconstruc* 

tion-Set 

Ein extrem leistungsfähi¬ 
ges Hilfsprogramm. Mit 
dem Sprite-Construction 
Set können Sprites in Se¬ 
kundenschnelle erstellt 
werden. Was bisher bie 
der Entwicklung von 
eigenen Progammen die 
anstrengendste und ge- 
fürchtetste Arbeit war, 
wird nun zur unterhalt¬ 
samen Beschäftigung. Oh¬ 
ne Bleistift, Zettel und 
Radiergummi malen Sie 
Ihre Sprites einfach auf 
den Bildschirm, lassen sie 
vom Computer drehen 
oder wenden, sehen sich 
Ihre Meisterwerke in Na¬ 
tura an und lassen auch 
den Hexcode vom Com¬ 
puter berechnen. 


Die .Möglichkeiten des 
Programms sind so um¬ 
fangreich, daß sie hier 
gar nicht alle angeführt 
werden können. Eine 
sechsseitige Programmdo¬ 
kumentation liegt diesem 
Schreiben bei. Jeder TI- 
User wird das Sprite-Con- 
structionset sicher sehr 
bald zu schätzen wissen! 

Nach dem Starten des 
Programms mit RUN bil¬ 
det der Computer zu¬ 
nächst das Zeichenfeld 
am Bildschirm ab und 
gleich danach das Haupt- 
menue. Neben der ersten 
Auswahlmöglichke.it des 
Hauptmenues befindet 
sich ein weißer Pfeil. 

Sie können diesen Pfeil 
bewegen, indem Sie den 
Joystick in die entspre¬ 
chende Richtung drük- 
ken. Der Pfeil wesit dann 
auf den nächsten Namen 
der Liste. 

Beachten Sie die ande¬ 
ren Namen der Liste zu¬ 
nächst nicht, und führen 
Sie den Pfeil neben das 
Wort „WORKING“. 

Wenn Sie nun den Ac¬ 
tionknopf Ihres Joysticks 
drücken, gelangen Sie in 
das Arbeitssystem, in 
dem Sie Ihre Sprites er¬ 
stellen können. Die ande¬ 
ren Teile des Hauptme¬ 
nues werden für Sie erst 
interessant, wenn Sie be¬ 
reits erstellte Sprites ver¬ 
walten (Speichern, aufru- 
fen) wollen. 

Im Arbeitsmodus wird 
zunächst das Arbeitsme- 
nue aufgelistet. Es be¬ 
steht aus folgenden Aus¬ 
wahlmöglichkeiten : 

SYMMETRY, INVERT, 
MIRROR, ROTATION 
HEX IN, HEX OUT, 
LOOK und READY 


Beachterr Sie vorläufig 
diese Auswghlmöglichkei- 
ten noch nicht und drük- 
ken Sie den Joystick 
nach rechts. 

Sie werden bemerkt 
haben, daß der weiße 
Pfeil neben dem Wort 
SYMMETRY des Menues 
verschwunden ist. Das be¬ 
bedeutet, daß Sie das 
Menue verlassen haben, 
und sich jetzt im Arbeits¬ 
modus befinden. 

Im Zeichenfeld befin¬ 
det sich nun ein Ziel¬ 
kreuz, das Sie in alle 
Richtungen bewegen 
können. Wenn Sie den 
Actioknopf drücken, 
können Sie nun Punkte 
Feld fahren, auf dem sich 
bereits ein Punkt befin¬ 
det und Sie abermals den 
Actionknopf drücken, 
wird er wieder gelöscht. 

Auf diese Art und 
Weise können Sie nun 
völlig problemlos Ihr 
Sprite „malen“. Wenn Sie 
längere Linien ziehen 
müssen, oder Flächen 
ausmalen wollen, dann 
müssen Sie bei gedrück¬ 
tem Feuerknopf in die 
entsprechende Richtung 
drücken und schon wird 
eine Linie gezogen. Jede 
Aktion Ihrerseits wird 
mit einem akustischen 
Signal untermalt. 

Sie können den Ar¬ 
beitsmodus wieder ver¬ 
lassen, indem Sie mit 
dem Zielkreuz über den 
Zeichenfeldrand hinaus- 
steuem. Sobald dies ge¬ 
schehen ist, verschwindet 
das Zielkreuz und Sie be¬ 
finden sich wieder im 
Auswahlmodus des 

Menues. 


Das Arbeitsmenue 

Das Arbeitsmenue ist im¬ 
stande, Sie bei der Erstel¬ 
lung Ihrer Sprites wesent¬ 
lich zu unterstützen. Sie 
können ein Programm 
des Arbeitsmenues auf- 
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rufen, indem Sie den 
Pfeil neben das gewünsch¬ 
te Wort steuern und dann 
den Actionknopf drücken. 
Ein weißer Punkt neben 
dem Wort zeigt Ihnen 
dann an, daß das Pro¬ 
gramm aktiviert wurde. 

Symmetry: 

Das Symmetry-Programm 
hilft Ihnen, wenn sie 
symmetrische Figuren er¬ 
stellen wollen. Sie müs¬ 
sen dann, je nach Art 
der Symmetrie, nur ein 
Viertel oder die Hälfte 
der Zeichenfläche „bema¬ 
len“ und lassen dann den 
Computer für Sie weiter¬ 
malen. 

Wenn Sie im Arbeits- 
menue SYMMETRY ge¬ 
wählt haben, gelangen Sie 
zunächst in ein kleines 
Nebenmenue. 

Hier stehen H-AXIAL, 
V-AXIAL und CIRCU¬ 
LAR zur Auswahl. 

Neben den Wörtern ist 
ein Symbol abgebildet, 
welches veranschaulicht, 
welches Viertel bzw. wel¬ 
che Hälfte Sie bemalen 
müssen. 

Circular: 

Wenn Sie dieses Pro¬ 
gramm wählen, setzt der 
Computer Zirkularsym¬ 
metrie voraus. Das linke 
obere Veirtel wird dann 
zirkularsymmetrisch ver¬ 
vielfacht. 

Dieses Programm eig¬ 
net sich ideal zur Gestal¬ 
tung von Spielbällen oder 
ähnlichen symmetrischen 
Figuren. Sie müssen ledig¬ 
lich ein Viertel des Balles 
zeichnen, steigen dann in 
die Programme SYMME¬ 
TRY, CIRCULAR ein, 
und der Computer zeich¬ 
net das Gebilde fertig. 

H-Axial: 

Das Programm H-Axial 
setzt die horizontale Mit¬ 
telachse als Symmetrie¬ 


achse voraus. Zeichnen 
müssen Sie, bevor Sie die¬ 
ses Programm wählen, da¬ 
her die obere Hälfte des 
Sprites. Die untere Hälf¬ 
te zeichnet dann der 
Computer. 

V-Axial: 

Das Programm V-Axial 
setzt die vertikale Mittel¬ 
achse als Symmetrieachse 
voraus. Hier muß die lin¬ 
ke Hälfte des Sprites ge¬ 
zeichnet sein, damit der 
Computer die andere 
Hälfte erstellen kann. 


f - ü* P 1" '* 3' £ & ' 

CLEÄK 
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Invert: 

Das INVERT-Programm 
invertiert ein fertig ge¬ 
zeichnetes Sprite. Das 
heißt, alle schwarzen 
Punkte im Zeichenfeld 
werden weiß und weiße 
Punkte werden schwarz. 
Wie bei allen anderen 
Hilfsprogrammen des Ar- 
beitsmenues können Sie 
nach Verwendung des 
Programms wieder in den 


Arbeitsmodus einsteigen 
und Veränderungen vor¬ 
nehmen. 

Mirror: 

Das Mirror Programm 
spiegelt ein bereits ferti¬ 
ges Sprite. Auch hier ge¬ 
langen Sie in ein Neben¬ 
menue, welches Sie fragt, 
ob HORIZONTAL oder 
VERTIKAL gespiegelt 
werden soll. 

Horizontal: 

Spiegelt Horizontal. Ideal 
bei der Erstellung von 




Spielfiguren! Sie zeich¬ 
nen zum Beispiel nur die 
Figur, die nach links 
geht, spiegeln diese dann 
horizontal und schon ha¬ 
ben Sie die rechte Figur. 


Vertikal: 

Genauso wie HORIZON¬ 
TAL. Es wird allerdings 
vertikal gespiegelt. 


Rotation: 

Wenn Sie das Rotation- 
Programm gewählt 

haben, taucht unterhalb 
des Zeichenfeldes ein 
neues Menue auf, welches 
sich erkundigt, ob Sie 
das Sprite nach links oder 
nach rechts rotieren 
lassen wollen. 

Wenn Sie nun links ge¬ 
wählt haben, führt das 
Sprite eine 90 Grad-Deh¬ 
nung nach links aus. 
Wählen Sie rechts, so ge¬ 
schieht derselbe Vorgang 
nach rechts. 

Durch öftere Anwen¬ 
dung dieses Programmes 


kann man ein Sprite in 
jeder beliebigen Richtung 
darstellen. Bei der Defi¬ 
nition von Spielfiguren 
ist dieses Programm un¬ 
entbehrlich. 

So wie die vorangegan¬ 
genen vier Programme ist 
auch das nun folgende 
fünfte Programm des Ar- 
beitsmenues bei der Er¬ 
stellung von Sprites be¬ 
hilflich: 

Bitte lesen Sie weiter auf Seite 139 
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********************** 


* * 

* SPRITE-CONSTRUCTION* 

* . * 

* Copyright by * 

* * 

* Peter Wenzel * 

* * 
* * 

* Beroetigte Geraete * 

* TI99/4A Konsole * 

* Ext. Basic * 

* * 

* Speicherbelegung * 

* 9130 Bytes * 

* * 


! ********************** 

i 

! Bei diesem Programm hab 
wir auf die Hi 1fspunkte v 
ichtat ! (Die Redaktion) 


190 CALL CLEAR :: OM WARNING 
NEXT :: DIM H*(16),D$(1),SA 
VE*(18):: für 1=1 to 16 :: R 
EAD H$(I):: NEXT 3 
200 DATA (<((,(<<),(<><,(<>) 
,()((,()(),())(,())),)(((,)( 
(),)<)<,)<>),))<(,)><),)))(, 

> ) ) ) 

210 DATA FF,01,0101010101010 
101 , FF0101010i 0i.0101 , FFFFFFF 
FFFFFFFFF,0,FFF1F1F1F3F1F1FF 
,FFFFFFFFol8181FF,FFFlFlF181 
8181 FF,0,0 

220 DATA 0.0FC C C C C C C C C C C F C , 00 
3.0303.03030303,00FC0C0CFCC0C0 
FC,00FC0C0C7C0C0CFC,00CCCCCC 
FC0C0C0C , 00FCC0C0FC.0C0CFC , 00 
C0C0C.0FCCCCCFC 

230 DATA 00FC0C0C0C0C0C0C,00 
FCCCCCFCCCCCFC,00FCCCCCFC0C0 
C0C,00FCCCCCFCCCCCCC,00F0CCC- 
CF0CCCCF, 0.0FCC0C0C0C0C0FC , 00 
F0CCCCCCCCCCF,00FCC0C0F8C0C0 
FC 

240 DATA 00FCC0C0F8C0C0C,3C4 
299A1Ai99423C,003F666C746466 
EF,007E313B3633337E,003E6341 
40603F1E, 00.7E321119113F7E , 00 
7F33303C38317F,007F723239383 
078 

250 DATA 003E6648504F663E.00 
7C603F3132327A03,007C 38181C1 
A183C2,003F13060606263F,007E 
72363C363673,007830303072637 

F 

260 DATA 007F2B2A49494963,00 
7C76323A323477,003E634559617 
F3E,007E33313F3E3078,003E634 
559617F3E07,007F313A34 323i79 
003E4 13C06634F3F 


270 DATA 007F492A0808081C,00 
6F2626666E7E37,0073622232321 
E0C,0077222241494963,0079321 
40814264F,007341623418183C,0 
07F43260C1 A317F,1010i0EE1010 
1 

280 DATA 0000181800001818,00 

08.0C7E7F7E0C0Ö 

290 FOR 1=37 TO 93 :: READ I 

* :: CALL CHAR(I,I$):: NEX1 

I 

300 CALL COLOR(1,2,1,2,2,16, 
3,5,1,4,5,1,5,9.1,6,9,1,7,9, 
1,8,9,1,9,3,1,10,16,1,12,2,1 
6} 

310 CALL CLEAR :: CALL SCREE 
N (8):: DISPLA.Y AT ( 1 , 1 ):" c c s 
PRITE CONSTRUCTIONSET Et" :: 
CALL SE'i 

320 RESTORE 1240 :: CALL DIR 
:: DISPLAY AT(20,13):"S BY 
Pt TER WENZl." 

330 ZI =5 81=3 :: GOTO 350 

340 CALL 8 :: CALI. C :: DISP 
LAY AT<70,13):" tCCC READY [ 
nt" :: Z1=Z :: Sl=S 
350 GOSLIB 1160 :: IF X=4 THE 
N 350 

360 ON Z-4 GOTO 500,100,450, 
100,100,100,100,370,100,390, 
100,100, 100, 100,4 00,100,100, 

i 00 ,i m ,i m 
370 GGSUF 930 

380 CALL KEY(3,K,G 'I i IF K=J 
8 THEN 2=12 :: S=3 GOTO 3 
40 ELSE 380 

390 GOSUB 1000 2=14 :: GO 

TO 340 

400 IF HCV-.0 THEN CALL SOUND 
(3000,440,0):; DISPLAY AT(20 
,13):"CAN MOT BE SAVED" :: D 
ISPLAY AT(22,13):*USE HEXCUT 
BEVOR" :: CALL SOUND(2,440, 
0);; 2=19 :: s = 3 :: goto 340 
410 IF SN>17 THEN CALL SOUND 
(3000,440,0):: DISPLAY AT(20 
,13):"SORRY\" :: DISPLAY AT( 
22,13):"MEMORY FULL" :: CALL 

soumd( l,440,0>:: 2=19 :: s= 

3 :: GOTO 340 

420 SN=SN+1 :: CALL C :: CAL 
L S :: DISPLAY AT(20,13):"SP 
RITENANEX" :: ACCEPT AT(22,1 
3)VALIDATE(UALPHA):1$ :: CAL 
L S2 :: SAVE*(SN)=HEX*kHR*Sa 

430 CALL S :: DISPLAY AT<24, 
13)I"NUMBER"j SN; "SAVED" 

440 CALL KEY(1,K,Q):: IF K=1 
8 THEN Zs 1.9 :: S=3 :: GOTO 3 
40 ELSE 440 
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450 IF SN=0 THEN Z=7 :: S=3 
:: GOTO 340 :: ELSE DISPLAY 
AT i 20,13): ” SPRITENUMBER\" :: 

CALL S :: ACCEPT AT<20,27>: 

Q :: IF Q<l OR Q>SM THEM 450 
460 CALL 32 :: DISPLAY AT(22 
,13)1”SPRITENAME\" :: DISPLA 
Y AT(24,13):SEG*(SAVE*(Q),i2 
9,16):: HEX*=SEG*(SAVE*<Ö),1 
, 64) : : HR*=SEG*(SAVE*(Q) ,65, 
64) 

470 HCV=J G03UB 890 :: CA 

LL S2 :: CALL 32 :: CALL S2 
480 CALL KEY(1,K,Q):: IF 8=0 
THEN 480 ELSE CALL 9 :: Z=7 
:: s=3 :: goto 340 
490 CALI. S : : CALL c : : DISP 
LAY AT(20,13):" EEEC READY C 
[ c [ zi=2 Si=S :: GOTO 

520 

500 RES7ÜRE 1250 :: CALL DIR 
510 CALL C :: CALL DELSPRITE 
(ALL.):: Z 1,31=3 
520 GOSUB 1160 :: IF X=4 THE 
M 1100 

530 IF Z = 24 THEN 32.0 

540 ON Z-2 GOTO 550,100,620. 

100,650, I00,720, i00, 100,7^0, 

1 00,780 , 1 00 . 1 00 , -, 90 ,100,920, 
100.990 

550 HCV=0 : : CALL SOUND <20.0, 
890,9,770,9,660,?):: DISPL AY 
AT (20, 1 4 ) *. " 1 AXIAL \ HI , " 

:: DISPLAY AT(22,14):”’ AXIA 
L\ V 3 + " :: DISPLAY AT(24,1 
4):”’ CIRCULAR 3 
560 Zi=?0 :: 81=16 :: GOSUB 
1160 :: IF X=4 THEM 560 
570 IF 2=2C' THEN 600 ELSE IF 
2=22 THEN 610 

580 FOR 1=3 TO 10 :: CALL SO 
UND( - 4250,-1,9):: FOR 0=15 T 
0 22 

590 CALL GCHAR(I,Q,CI):: CAL 
L HCHAR(I,45-Q,CJ>:: CALL HC 
HAR(21-1,45-0,CI):I CALL HCH 
AR(21-I,Q,CI):: NEXT Q :: NE 
XT I :: GOTO 510 
600 FOR 1=3 TO 10 :: CALL 80 
UND(-4250,-2,9):: FOR 8=15. T 
0 30 :: CALL GCHAR(I,Q,CI):: 

CALL HCHAR(21-1,Q,CI)I: NEX 
T Q :: NEXT I :: GOTO 510 
610 für I=3 TO 18 :: CALL SO 
UND(-4250,-3,0):: FOR Q=15 T 
0 22 :: CALL GCHAR(1,8,CI):: 

CALL HCHAR(I,45-Q,CI):: NEX 
T Q :: next I :: goto 510 
620 HCV=0 :: DISPLAY AT(20,1 

3): ! * ü inverting r E" :: for 

1=3 TO 18 :: CALL SOUND(-20 


00,-4,?):: für q=15 to 30 

CALL GCHAR(I,Q,K) 

630 IF K=40 THEN CALL HCHAR( 

I,Q,41)ELSE CALL HCHAR(I,Q,4 
0 ) 

640 NEXT Q : : NEXT I :: GOTO 
4 90 

650 HCV=0 :: D*(0) ,D*(I)=" " 

:: CALL SOUND(200,880,9,770, 

9.660.9) :: DISPLAY AT(22,13) 

: 11 » L EFT 11 : : DISPLAY AT (24,1 
3):"* RIGHT" :: 21=22 :: Si= 
15 

660 GOSUB 1160 :: IF X=4 THE 
N 660 ELSE IF 2=22 THEN *?00 
670 DISPLAY AT (2.0, 13) : " E E E R 
ÜTATION fC l" 

680 FOR A=0 TO 1 :: FÜR 1=15 

TG 22 :: CALL SOUND( -4000, - 
7,?):: -OP 0=13 TO 3 STEP -1 
:: c Ai. I. GCHAR<Q, I+A*3, Ci):: 
D*(A)= D*(A) feCHR*(Ci):: HEXT 
Q :: NEXT I :: NEXT A 
690 GOSUB 1260 :: z=? :: S=3 
:: GOTO 490 

700 DISPLAY AT(20,13):"£E• R 
ÜTATION CEE" 

710 FOR A=0 TD 1 .* : FÜR 1=30 

TO 23 STEP -1 CAU. SOUND 
(-4000,-6,9):: FOR Q=3 TO 18 
:: CALL GCHAR(G.I-A*3,C1):: 
D*(A)= DS(A)kCHRS(C1}: : ME X T 
Q :: NEXT i :: next a :: GO 
TO 690 

720 CALL CHAR(120,"002466FFF 
F662400133C7E18187E3C18"):: 
HCV=0 :: CALL SOUND(200,880, 

9.770.9.660.9) :: DISPLAY AT( 
22,13):"' HORIZONTAL 3 x" 

730 DISPLAY AT (24, 13) ’ OER 

TICAL 3 y* :: 21=22 :: Sl= 
15 :: gosub 1160 :: Display 
AT (20, 13) : ” C E C E MIRROR EUE" 

*.: IF 2 = 22 THEM 760 
740 FÜR 1=15 TG 30 CALL S 
OUND (-4.000,-3,9) : : FÜR 8=1 T 
0 8 :: CALL GCHAR (Q + 2, I ,C1) *. 

: CALL GCHAR(19-Q,I,C2):: CA 
LL HCHAR(Q+2,I,C2):: CALL HC 
HAR<19-Q,I,C1):: NEXT Q :: N 
EXT I 

750 CALL s :: CALL c :: Z = 9 
:: 3=3 :: GOTO 490 
760 FOR 1=3 TO 18 :: CALL SO 
UND <-4000 ,-2,9) : : FOR Q=1 TO 
8 :: CALL GCHAR(1,8+14,CI): 

: CAU GCHAREI,31-G.C2):J CA 
LL HCHAR(I,8+14,C2):: CALL H 
CHAR(i,3i-Q,ci>:: next q :: 

NEXT I : *. GOTO 750 

770 HCV=0 :: CALL SET :: GOT 


0 490 

780 HCV=0 :: FOR 1=3 TO 13 : 

: call sound(-10,-6,0):: cal 

L HCHAR(1,15,41,16):: NEXT 1 
:: GOTO 490 

790 CALL CHARi120,"FFF1F1F18 
181ölFFFF818181FiFlFlFFFF8F3 
F8F818181FFFF8181818F8F8FFF'’ 
):: CALL S :: DISPLAY AT(20, 
13):"INSERT HEXCODE\" :: HR* 
,HEX*=” ” 

800 hcv=i :: for 1=1 TO 4 :: 

DISPL* AY AT (22*13) : " PARTNUMB 

er”; i;"3 M ;chr*<ii9 + i) 

810 S=15 

820 CALL HCHAR<24,S,105) 

830 CAL L KEY < 3,K,Q) : *. IF G=0 
THEN 830 ELSE IF K<48 OR K> 
57 THEN IF K<65 OR 1070 THEN 
CALL SOUND<100,-1,0):: 601 0 
830 

840 CALL SOUND(12,999,8,-7,8 
) :: IF K>57 THEN K=K-7 
850 CALL HCHAR( 24 , 8, K):: HEX 
*=HEX*kCHR*(K):: S=S+i :: IF 
K >5" 7 THEN HR*=HR*kCHR* (K + 7) 
ELSE HR*=HR*1:<CHR*(K) 

860 IF S< 3 1 THEN 320 ,ELSE CA 
LL SOUND(50,-5,0):: CALL SOU 
ND (50,-6,0) : CALL SOUND (50, 

-3,0):: CALL. HCHAR (24,15,32, 
17) 

870 NEXT I 

e80 gosub 890 :: z=i? :: s=3 
:: goto 490 

890 K=1 :: FOR 1=13 TO 21 ST 
EP 8 :: FOR 0=3 TO 18 :: DIS¬ 
PLAY AT(G,I)SIZE (4) :H*(ASC(S 
EG*(HEX*,K,1)>-47):: DISPLAY 
AT (G, 1+4 ) SI2E (4) *. H* (ASC (SEG 
*(HEX*,K+1,1))-47) 

900 K=K+2 :: NEXT Q :: NEXT 
• I :: RETURN 
910 GOSUB 930 

920 CALL KEY(1,K,S>I: IF K=1 
8 THEN 7=19 :: S=3 :: GOTO 4 
90 ELSE 920 

930 CALL HCHAR(20,15,32,16) : 

: zl=2l :: Si=i4 :: hex*,hr* 
:: HCV=l 

940 FOR SF=0 TO 8 STEP 8 : : 
FOR ZF=0 TO 8 STEP 8 :: FOR 
A=0 TO 7 :: FOR Q=0 TO 4 STE 
p 4 :: C2=0 :: FOR 1=0 TO 3 
:: CALL 6CHAR(3+ZF+A,18+SF-I 
+Q,C1) 

950 C2=C2+2''I* (CI-40) : : NEXT 
I :: si=Sl + i :: HEX*=HEX*LC 
HR*(48+02) 

960 IF C2 >9 THEN HR*=HR*S'CHR 
*(C2+55)ELSE HR*=HR*LCHR*(C2 


+ 48) 

970 IF S1>30 THEN Sl=15 :: Z 
1=Z1+1 

980 CALL SOUND (10,-5,0) : *. CA 
LL HCHAR(Z1,S1,48+C2):: NEXT 

q :: next A : : next zf : :** n 
ext sf :: call S2 :: call sz 
:: CALL S2 :: retlirn 
990 gosub 1000 :: z=2i :: GO 
TO 490 

1000 IF HCV=0 THEN CALL SOUN 
D(3000,440,0):: CALL c :: DI 
SPLAY AT(20,13):"WARNINGX“ : 

: DISPLAY AT(22,13):"USE HEX 
OUT BEVOR" :: GOTO 1090 
1010 CALL CHAR(128,HR*):: CA 
LL C I: CALL SOUND(200,880,9 
,770,9.660,9):I DISPLAY AI(2 
0,J2):' i ‘ COLOR" :: DISPLAY A 
T(22 5 13):" * MAGNIFY” :: DI SP 
LAY AT(24,13) : " ’ END“ 

1020 Q=3 :: CALL MAGNIFY (3) *. 

: CALL SPRITE(«25,128,2,160, 
208) 

1030 zi =20 :: sl=l5 :: gosub 
1160 :: IF X=4 THEN 1030 
1040 IF 2 = 24 THEN 1090 
1050 IF 2=27 THEN 1070 ELSE 
ACCEF-T AT (20,21) SIZE (2) VALID 
ATE(DIGIT)BEEP:I* :: IF I*=" 

" THEN 1050 ELSE CG=VAL<I*> 
1060 IF C0<1 OR cor-3 6 THEU 1 
05.0 ELSE CALL COLOR ( «25, CD) : 

: GOTO 1030 

1070 IF 0=3 THEN CALL MAGN1F 
Y ( 4 ) : : C3=4 ELSE CALL MAGNIFY 
(3):: 0=3 

1080 CALL HCHAR(22,15,96) : : 
GOTO 1030 

1090 CALL DELSPRITE(ALL) : : C 
ALL SOUND(1,440,0):: S=3 : : 
RETURN 

1100 CALL. C :: DISPLAY AT(21 
,15):"HTAB\. VTABN" :: HCV=0 
:: CALL.MAGNIFY(2):: Z,S=i 
:: CALL SPRITE(#9,91,14,7+2# 
8 ,102 + S-V8) : : DISPLAY AT(23,i 
7):" l l" 

1110 CALL KEY(1,K,I):: IF K< 
>18 THEN 1130 ELSE CALL GCHA 
R(Z+2.S+14,I) 

1120 IF 1=40 THEN CALL SOUND 
(100,220,0,247.0,262,0)I: CA 
LL HCHAR(Z+2,S+14,41)ELSE CA 
LL SOUND <97,440,0,494,0,524 , 
0 > ; : CALL HCHAR(Z + 2,S 4 14,40) 
1130 CALL. 3 OYST < 1, X, Y) : : 1F 
X=0 AND Y=0 THEN 1110 
1140 z=z-Y/4 :: S=S‘X/4 :: 1 
F Z >16 OR Z<1 THEN 510 ELSE 
IF S> 16 OR S<1 THEN 51.0 
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1150 CALL SOUND ( 30,-2,0):: C 
ALL L0CATE(#9,7+Z*8,102+S*8) 
:: DISPLAY AT(23,15)5 USING " 

### ###":s,z :: goto 1110 

1160 z=zi :: s=si :: call s 

:: CALL HCHAR (Z, S,104) 

1170 CALL KEY(1,K,I) I I IF K= 
18 THEN CALL HCHAR(Z,S,105)I 
: :: CALL S2 :: GOTO 1230 
1180 CALL JOYST(l,X,Y):: IF 
X=4 THEN 1220 

1190 IF Y=0 THEN 1170 ELSE C 
ALL HCHAR(Z, S,96) 

1200 Z=Z-Y/4 :: IF Z>24 OR Z 
<3 THEN 1160 

1210 CALL GCHAR(Z,S,FELD): : 

IF FELD096 THEN 1200 ELSE C 
ALL SOUND(100,-1,9):: CALL H 
CHAR(Z,S,104):I GOTO 1170 
1220 CALL S :: CALL HCHAR(Z, 
S, 96) 

1230 RETURN 

1240 DATA CREATEX,,' WORKING 
, OLD ONE,,,OUTPUT\,,* HEX 
CODE,,' LOOK,,,STORAGE\,, * S 
AVE 

1250* DATA * SYMMETRY,,' INVE 
RT, , ' ROTATION,,’ MIRROR, ,, ’ 
CLEAR,,’ SET ALL,,,’ HEX IN 
,, ’ HEX OUT,, ’ LOOK,,, ' READ 
Y, 

1260 FOR A=0 TO 1 I: FOR 1=0 
TO 7 :: DISPLAY AT(I+3+A*8, 
13):SEG*<D*<A),1*16+1,16):: 

next i :: next a :: return 

1270 SUB SET :: CALL SOUND(- 
999,-5,9):: CALL VCHAR(3,14, 

39.16) :: CALL HCHAR(19, 14,38 
):: CALL HCHAR(19,15,37,16) 
1280 FOR 1=3 TO 18 :: CALL S 
OUND <-10,-5,0):: CALL HCHAR( 

1.15.40.16) :: next i :: call 
CHAR(96,"00552A552A552A55 M , 

104, M 00080C7E7F7E0C08",105, 0 
00001C3E3E3E1C"):: SUBEND 
1290 SUB C :: FOR 1=20 TO 24 
:: DISPLAY AT(I,13):"" :: N 
EXT I :: SUBEND ' 

1300 SUB S2 :: FOR 1=0 TO 5 
:: CALL SOUND <-200,110*2 A I,4 
):: NEXT i :: subend 
1310 SUB DIR :: FOR 1=3 TO 2 
4 :: DISPLAY AT(1,1)SIZE(11) 

::: next i :: for i=3 to 
24 :: read i$ :: if 1*="" th 
EN CALL SOUND(20,-3,9)ELSE C 
ALL SOUND(20,-2,9) 

1320 DISPLAY AT(1,1)SIZE(11) 

:i$ :: next i :: subend 

1330 SUB S :: CALL SOUND(-50 
,330,4,220,4):: CALL SOUND<- 


50,330,4,440,4):: SUBEND 
1340 ! 

1350 ! *** PROGRAMMENDE *** 


Fortsetzung von Seite 135 

Hexin: 

Hier haben Sie die Mög¬ 
lichkeit, den bereits exi¬ 
stierenden Hexcode eines 
Sprites einzugeben. Ist 
dies geschehen, so kön¬ 
nen Sie an diesem Sprite 
nach Belieben Änderun¬ 
gen vornehmen, oder sich 
selbiges in „Natura“ an¬ 
schauen. (Dieses Pro¬ 
gramm mit dem Namen 
„LOOK“ wird später er¬ 
läutert!). 

Dieses Programm ist 
sehr nützlich, wenn Sie 
sich die Grafiken anderer 
Listings einmal genauer 
ansehen wollen, bevor Sie 
das Listing eingeben, 
oder wenn Sie die Grafi¬ 
ken anderer Programme 
für eines Ihrer eigenen 
Produkte verwenden wol¬ 
len. 

Hex out: 

Dieses Programm nimmt 
Ihnen die mühsamste Ar¬ 
beit bei der Spritedefinie- 
rung ab. Es erzeugt den 
Hexcode des Sprites. Die¬ 
ser. wird unmittelbar un¬ 
terhalb des Zeichenfeldes 
in vier Zeilen ausgegeben, 
wobei jede Zeile 16 Zei¬ 
chen enthält und damit 
dem Hexcode eines Zei¬ 
chens entspricht. (Ein 
Sprite besteht ja aus vier 
Zeichen!) 

1. Zeile.linkes 

oberes Viertel des Sprites 

2. Zeile.linkes, 

unteres Viertel des Sprites 

3. Zeile.rechtes, 

oberes Viertel des Sprites 

4. Zeile.rechtes, 

unteres Viertel des Sprites 

Wenn Sie den Hexcode 
in einem Programm ver¬ 
werten wollen, dann ge¬ 
ben sie ihn einfach der 
Reihe nach von Zeile 1 — 
4 ein. 

Bevor Sie die Program¬ 
me wie „SAVE“ oder 


„LOOK“ verwenden, 
müssen Sie das HEX OUT- 
Programm verwenden, da 
der Computer den Hex- 
Code auch für diese Pro¬ 
gramme zum Rechnen 
verwendet. 

Look 

Mit der Hilfe dieses Pro¬ 
grammes können Sie sich 
Ihre fertigen Sprites in 
Originalgröße anschauen. 
Sobald Sie dieses Pro¬ 
gramm aufgerufen haben, 
erscheint das Sprite am 
rechten, unteren Bild¬ 
schirmrand, und daneben 
eine neues Menue. Hier 
können Sie die Farbe des 
Sprites mittels COLOR 
ändern, oder es mittels 
MAGNIFY vergrößern. 
Eine neuerliche Anwen¬ 
dung von Magnify bringt 
das Sprite wieder in die 
Ursprungsgröße zurück. 

Bevor Sie dieses Pro¬ 
gramm verwenden kön¬ 
nen, müssen Sie das Hex- 
Out Programm durch¬ 
laufen haben. Haben Sie 
dies vergessen, so weist 
der Computer darauf hin. 

Wenn Sie genug gese¬ 
hen haben, steigen Sie 
mittels END aus und keh¬ 
ren so wieder in das Ar- 
beitsmenue zurück. 

Zum Schluß die drei 
einfachsten Teile des Ar- 
beitsmenues: 

Clear 

löscht das Zeichenfeld. 
Das dargestellte Sprite 
verschwindet. 

Vorsicht: Sprites, die 
vorher gesaved wurden, 
sind nach der Anwen¬ 
dung von CLEAR nicht 
wieder aufrufbar. Sie soll¬ 
ten daher fertige Sprites, 
die Sie noch benötigen, 

Bitte lesen Sie weiter auf Seite 146 
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AUF 

WEISS 

BESITZ 


Dies ist ein Programm, 
das dem creativen An¬ 
wender viele Variations¬ 
möglichkeiten bietet, 
Säulen 3-dimensional mit 
dem Drucker RX-80 dar¬ 
zustellen. 

Es ist für alle, die ih¬ 
re Säulen schwarz auf 
«weiß in der Hand halten 
wollen und auf größt¬ 
mögliche Freiheit und 
Komfort bei der Gestal¬ 
tung und Ausführung sol¬ 
cher Anwenderprogram¬ 
me Wert legen, gedacht. 

Dieses Programm ist in 
folgende Abschnitte un¬ 
terteilt: . 

1. Eingabe: Hier wer-, 
den alle wichtigen Vor- 
ausetzungen für den wei¬ 
teren Ablauf von Ihnen 
eingegeben, wodurch 
die Variationen der ver¬ 
schiedenen Drucke erst 
zustande kommt. Sie kön¬ 
nen hier, im Dialog mit 
dem Computer, neben 
der Anzahl der Säulen 
auch entscheiden, ob die 
Y-Achse, ein Zwischen¬ 
raum, oder im 2-Farben- 


Druck gedruckt werden 
soll. 

Zum 2-Farben-Druck 
ist anzumerken, daß hier 
in abwechselnder Folge 
2 Säulen in verschiedenen 
Farben gedruckt werden, 
z.B. um einen Vergleich 
darzustellen. Eine weitere 
Möglichkeit, die Grafik 
ganz erheblich zu verän¬ 
dern, stellt die Eingabe 
der Säulenbreite dar. 

Mit der Eingabe des 
Faktors lassen Sie die Hö¬ 
he der Säulen hochrech¬ 
nen. Geben Sie z.B. den 
Faktor .5 ein, dann rech¬ 
net der Computer alle 
Werte auf 100 hoch. 

2. Wei teeingabe: Hier 
geben Sie die Werte für 
die Säulenhöhen ein. An¬ 
gezeigt wird hier neben 
dem letzten von Ihnen- 
eingegetippten Wert und 
der Anzahl der bisher ein¬ 
getippten Säulen auch 
der höchste Wert, der 
nicht überschritten wer¬ 
den darf. 

Michael Büth 
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Schematicher 
Aufbau einer Säule 
mit Verweis auf die Zeilennummern 
wo die betreffenden Stücke entstehen 
und gedruckt werden einschließlich 
Kommentar 


l\A 


11 

• 

: 

l' r. . 

■ .j 

U; j ■ 

i. 

i '! 

1|i ! 

r - * 1.1 

■ ; 

j > 1 

1 


Druckrichtuns 


r* 


BREI 1/2 
stellen Wert 
für die Breite 
d. Säule dar 


Z.- 1630-1650 


INT (A(l)). 

Z. - 1440-1460 
2 Farben möglich: 
schwarz Farb= 140 

grau Farb= 139 


— 


£ 


■r—- 


INT(A(I) 

Z.- 1660 
immer schwarz 



Z.- 1520-1540 


Z.- 1560-1580 
abhängig von BREI 
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10 ! ********************** 


11 ! * * 

12 ! * SAEULENDIAGRAMM * 

13 ! * * 

14 ! * Copyright by . * 

15 ! * * 

16 ! * Michael Bueth * 

17 ! * * 

19 ! * Benoetigte Geraete * 

20 ! * TI99/4A Konsole * 

21 ! * Ext. Basic * 

22 ! * Epson RX-80 * 

23 ! * * 

26 ! * Speicherbelegung * 

27 ! * 4279 Bytes * 

28 ! * * 


29 ! ********************** 

30 ! 

400 DlM A(99) 

410 OPEN #l:“RIO" 

420 CALL CHAR(135,"0000FF") 
430 CALL CLEAR :: CALL SCREE 
N (14 ) 

440 FOR UI = 1 TO 13 :: CALL C 
OLOR(UI,16,2) 

450 NEXT UI 
460 REM 

470 REM ***************** 

480 REM * EINGABE DER * 

490 REM * * 

500 REM VORAUSSETZUNGEN* 

510 REM ***************** 

520 REM 

530 DISPLAY AT(2,7):"SAUELEN 
DIAGRAMM" 

540 CALL HCHAR(3,9,135,15) 
550 DISPLAY AT(5,6):"von mic 
hael bueth " 

560 DISPLAY AT<10,2):"FAKTOR 

■ - H 

570 ACCEPT AT <10, 25). SIZE (9) V 
ALIDATE <DIGIT,".■):V 
580 DISPLAY AT <12,2)J"Y-ACHS 
E ? <J/N)" 

590 ACCEPT AT (12,25)VALIDATE 

<" j N"):m* 

600 IF THEN GHJ=2 

610 DISPLAY AT<14,2):"2-FARB 
EN-DRUCK (J/N)" 

620 ACCEPT AT <14,25)VALIDATE 

<"J N“):hn$ 

630 IF HN$="N" THEN 650 
640 FDR=20 

650 DISPLAY AT <16,2):"WIEVIE 
LE SAUELEN ?" 

660 ACCEPT AT <16,25)SIZE <2)V 

ALIDATE(DIGIT,""):ANZ 

670 IF ANZ>99 THEN 660 

680 IF FDR=20 THEN 720 

690 DISPLAY AT<18,2):"SAUELE 

NBREITE :" 


700 ACCEPT AT(18,25)SIZE (2) : 
BREI2 

710 GOTO 760 

720 DISPLAY AT<18,2):"ERSTE 
SAUELENBREITE ?" 

730 ACCEPT AT <18,25)SIZE <1)B 
EEP VALIDATE(DIGIT,"12345") : 
BREI 1 

740 DISPLAY AT(20,2):"ZWEITE 
SAUELENBREITE ?" 

750 ACCEPT AT(20,25)SIZE(1)B 
EEP VALIDATE(DIGIT,"12345") : 
BREI 2 

760 CALL SOUND<100,110,0) 

770 DISPLAY AT(22,2):"ZWISCH 
ENRAUM ? (J/N)" 

780 CALL KEY(0,CODE,STATUS) 
790 IF STATUS=0 THEN 780 : : 
IF C0DE=74 THEN 810 
800 ZWR=50 

810 CALL KEY(0,CODE,STATUS) 
820 IF STATUS=0 THEN 810 
830 REM 

840 REM ******************* 
850 REM ** WERTEINGABE ** 
860 REM ******************* 
870 REM 
880 CALL CLEAR 

890 DISPLAY AT(2,7):"SAUELEN 
DIAGRAMM" 

900 LI=50/V 

910 CALL HCHAR<3,9,135,15) 

920 FOR 1=1 TO ANZ 

930 IF ASD>ANZ-1 THEN 1760 

940 DISPLAY AT(7,2):"WERT :- 

950 DISPLAY AT(14,6):"WERT D 

ARF NICHT "JLI 

960 CALL HCHAR(8,4,135,25) 

970 DISPLAY AT(9,8):"bitte w 

ert eingeben " 

980 CALL SCREEN < 2) 

990 DISPLAY AT (16,7)': "UEBERS 
CHREITEN ! " 

1000 DISPLAY AT <7,20):"? " 
1010 ACCEPT AT(7,15)SIZE(5)B 
EEP VALIDATE(DIGIT,"12345678 
90. ">:x 

1020 DISPLAY AT(7,15):"-" 

1030 DISPLAY AT(22,3):"LETZT 

ER WERT : " 5 X 

1040 X=X/1.0 :: X=X*V 

1050 ASD=ASD+1 :: DISPLAY AT 

(20,3):"SAEULEN :'"JASD 

1060 A(I)=x :: NEXT I :: cal 

L CLEAR :: HAI=1 

1070 CALL SCREEN(9):: ST=0 

1080 PRINT #l:CHR$(27) i " 1 11 J 

1090 PRINT #l:CHR$(27)J"E"; 

1100 PRINT #l:CHR$(27);"m";C 

HR$(4)5 

1110 REM 
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1120 REM ******************* 
1130 REM ** AUSDRUCK ** 
1140 REM ******************* 
1150 REM 

1160 FÜR 1=1 TO AN2 

1170 GHJ=GHJ +1 :: .IF GHJ >1 T 

HEN 1330 

1180 RESTORE 1950 

1190 PRINT 44l:CHR$<27)i"L"JC 

HR$<6)JCHR$(0)i 

1200 FOR TGH=1 TO 6 

1210 READ BRED :: PRINT #l:C 

HR$(BRED)J:: NEXT TGH 

1220 FOR AN=i TO 10 

1230 ST=ST +1 

1240 IF ST<2 THEN 1260 

1250 PRINT #1:CHR$(133)i 

1260 PRINT 44l:CHR$<133) i CHR$ 

(133)iCHR$(133);CHR$(123)5 

1270 NEXT AN 

1280 PRINT #1!CHR$ <133) 

1290 RESTORE 1960 

1300 PRINT 4*1:CHR$<27)5"L"jC 

HR$(9)JCHR$<0)i 

1310 FOR RW=1 TO 9 :: READ D 

FV :: PRINT #l:CHR$(DFV); 

1320 NEXT RW :: PRINT 44HCHR 
$(160):: GOSUB 1720 
1330 PRINT #l:CHR$(27) i"3"iC 
HR$(20); 

1340 IF ASD > 1 THEN 1350 :: G 
OSUB 1720 

1350 IF FDR=20 THEN 1370 
1360 GOTO 1410 
1370 REM 
1380 ASD=ASD+i 

1390 IF ASD=2*INT(ASD/2)THEN 
FARB=139 ELSE FARB=140 
1400 GOTO 1420 
1410 FARB=139 
1420 BG=0 

1430 IF A(I)<2 THEN GOSUB 17 
20 :: bg=bg+ l :: goto 1590 
1440 FOR DS=1 TO INT(A(I))-1 
1450 PRINT #1:CHR$(FÄRB)» 
1460 NEXT DS 
1470 REM 

1510 bg=bg+i :: if bg>i then 
1560 

1520 RESTORE 1910 :: PRINT # 
1;CHR$(27)5"L"?CHR$(8)5CHR$< 
0 ) » 

1530 FOR TG=1 TO 8 :: READ P 

o :: print #i:chr$(PO)5 

1540 NEXT TG :: PRINT #i:CHR 
$(160) 

1550 GOTO 1590 
1560 RESTORE 1920 :: PRINT 44 
1:CHR$(27)i"L"y CHR$(8)5CHR$( 
0) i 

1570 FOR HG=i TO 8 :: READ H 


u :: PRINT 44 i:CHR$(HU)i 
1580 NEXT HG :: PRINT 441: CHR 
$(160) 

1590 IF FARS=13? TN§N 
1600 IF BG>BREI1-1 THEN 1620 
:: GOTO 1430 

1610 IF BO-BREI2-1 THEN 1620 
:: GOTO 1430 

1620 IF A(I)<2 THEN 1700 
1630 RESTORE 1930 :: PRINT 44 
1:CHR$(27);"L“j CHR$(12)» CHR$ 
(0) i 

1640 FOR MN=1 TO 12 :: READ 
LOK :: PRINT # 1 :CHR$(LOK); 
1650 NEXT MN 

1660 FOR DFE=i TO A(I) -2 :: 
PRINT #l:CHR$(140) 1 :; NEXT D 
FE 

1670 RESTORE 1900 PRINT # 

1: CHR$ ( 27 ) *, " L H } CHR$ (8)5 CHR$ ( 
0 ) ; 

1680 FOR AF=1 TO 8 :: READ Q 
:: PRINT #i:chr$(Q) i 
1690 NEXT AF :: PRINT #1:CHR 
$(160) 

1700 IF ZWR=50 THEN 1710 :: 
GOSUB 1720 

1710 NEXT I GOTO 1760 
1720 RESTORE 1940 :: PRINT 54 
1:CHR$(27)5"L"J CHR$( 9)J CHR$ ( 
0 ) *, 

1730 FOR UJ=i TO 9 :: READ X 
CV :: PRINT 441 : CHR$ (XCV) 5 
1740 NEXT UJ :: PRINT 44HCHR 
$( l6J) 

1750 RETURN 

. 1760 FÜR GH=1£00 TC« 110 STEP 
-50 : CALL SOUND ( -10, GH, 7 , 
GH+20,20):: NEXT GH 
1770 DISPLAY AT (10, 1) : 11 KOPIE 
ERWUENSCHT ? (J/N) M 
1780 ACCEPT AT( 10,26) SIZEd) 
VALIDATE( M JN“) : K$ 

1790 IF K$= H N" THEN 1820 ELS 
E 1800 
1800 ST=0 

1810 IF M$="N 11 THEN GHJ=2 EL 

SE GHJ=0 

1815 GOTO 1070 

1820 DISPLAY AT(15,1)1"NEUE 

WERTEEINGABE UNTER" 

1830 DISPLAY AT(17,1)I"GLEIC. 
HEN VORRAUSSETZUNGEN ?" 

1840 ACCEPT AT(21,16)SIZE <1) 
VALIDATE("JN") : C$ 

1850 IF C$="J" THEN 1870 
1860 GOTO 1880 

1870 ASD=0 :: IF M$="N" THEN 
GHJ =2 ELSE GHJ=0 
1875 GOTO 880 
1880 CLOSE #1 
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1890 CALL SCREEN<2):: CALL C 
LEAR :: END 

1900 DATA.255,127,63,31,15,7 
,3,255 

1910 DATA 128,64,32,16,8,4,2 

i 1 

1920 DATA 0,0,0,0,0,0,0,255 
1930 DATA 255,128,192,224,24 


0,248,252,254,255,255,255,25 
5 

1940 DATA 255,0,0,0,0,0,0,0» 
255 

1950 DATA 31,24,20,18,17,16 

1960 DATA 255,0,0,0,0,64,32, 
16,15 


TIPS & TRICKS 




Haben Sie das auch schon einmal erlebt: 

Sie haben eine ganz tolle Idee für ein Programm und bemerken beim 
Programmieren, daß Ihr Vorhaben ein Flop werden muß. 
da die notwendigen Routinen den Rechner viel zu langsam machen? 
Und dann ärgern Sie sich darüber, weil die Assemblerausrüstung 
für Ihren TI viel zu teuer ist? Das ist nun vorbei. 

Wir haben für Sie eine Hardwareschaltung zur Assemblerprogrammierung 
getestet, die zum einen sehr günstig zu kaufen ist 
und zum anderen nur das Extended Basic-Modul benötigt. 

Damit Sie uns richtig verstehen: den Cassettenrecorder brauchen Sie 
auch noch, denn irgendwo müssen Ihre Programme ja gespeichert 
werden. Sie haben richtig gelesen: Es wird kein Diskettenlaufwerk 
benötigt. Und jetzt in medias res. 

chenden Vermerk mit Literatur¬ 


Eine kleine Hardwareerwe'rterung 
macht den langsamen TI 99/4A 
zum Rennwagen. 


DER KASTEN 

Die kleine Hardwareschaltung Findet 
in einem Kunststoffkasten von 
100 mm x 50 mm x 25 mm Platz 
und besteht, wenn Sie das Gehäuse 
geöffnet haben, aus sehr wenigen 
Bausteinen. Auf der Platine Finden 
sich zwei Widerstände, ein Chip 
vom Typ HM6116P-3, ein Speicher¬ 
baustein, und ein SN74LS138N. 

Ein kleiner Kippschalter wurde an 
der Gehäusestirnseite untergebracht. 
Der elektronische Aufbau birgt also 
weder Wunder noch technische 
Novation. Aber sinnreiche Details. 
Dieser kleine Kasten zeigt an beiden 
Längsseiten einen Peripheriebus. Mit 
dam einen Stecker können Sie damit 
Ihre Neuerwerbung an den System¬ 
bus Ihres TI anschließen und die 
andere Busseite Für weitere Periphe¬ 
rie nutzen. Falls vorhanden. Die 
Stecker passen übrigens sauber an 
den TI-Bus, da klemmt oder wak- 
kelt nichts. Ebenfalls von sehr gu¬ 
ter Qualität ist das Kunststoffge¬ 
häuse. Es besteht aus zwei Hälften, 
die sehr stabil aussehen und mit vier 
starken Schrauben zusammenge¬ 
halten werden. Einen Sturz von der 
Tischplatte dürfte das Gehäuse 
wohl aushalten. Aber versuchen Sie 
bitte nicht, mit Ihren Füßen die 
"Stabilitätsgrenze des Gehäuses zu 
ergründen. Die beiden Gehäusehälf¬ 
ten werden nicht einfach stumpf 
aufeinander gesetzt, sondern zei¬ 
gen Nut und Feder. Das zeugt von 
durchdachter Konstruktion. Derart 
verbundene Bauteile können nicht 
wackeln oder zueinander verrut¬ 
schen. Nur die Farbgebung der Ge¬ 
häuseteile läßt zu wünschen übrig. 


Grau in Grau ist die Devise. Ober¬ 
teil in Hellgrau Unterteil in Dunkel- 
grau. Aber Ihr TI soll ja auch kein 
buntes Kunstwerk sein. 


AUSSTATTUNG 


Das kleine Kästchen kommt natür¬ 
lich nicht alleine. In seiner Beglei¬ 
tung finden sich eine Kassette und 
ein kleines Handbuch. Klein ist et¬ 
was untertrieben, denn im Format 
DIN A4 läßt es sich schwer verlieren 
und mit 25 Seiten hat es schon 
recht viel zu lesen. 

Im Handbuch wird nicht nur be¬ 
schrieben, wie Sie Ihr kleines Zau¬ 
berkästchen anschließen müssen. 

Sie werden in einem Kurzlehrgang 
in die Assemblerkürzel eingewiesen. 
Und zwar in alle, die auf dem TMS 
9900 lauffähig sind. Und das Ganze 
geschieht in deutscher Sprache. 
•Obendrein Findet sich ein kleines 
Beispielprogramm, das Ihnen den 
ersten Start leicht machen soll. 

Sie kommen aber in keinem Fall 
darum herum, sich selbst mit ande¬ 
rer Literatur zur Ässemblerpro- 
grammierung zu beschäftigen. Und 
da gibt es mittlerweile einiges auf 
dem Büchermarkt. Einen entspre¬ 


hinweis finden Sie ebentalls im 
Handbuch. Ein, wie wir meinen, 
lobenswerter Zug. 

Die mitgelieferte Kassette hat 
dann endlich alles, was Sie sich 
schon lange gewünscht haben: 

- Line by Line-Assembler 

— Dissassembler 

— Kassettenladeroutine 

- Kassettenspeicherroutine 

ANWENDUNG 


Um Ihre Erweiterung in Betrieb 
nehmen zu können, genügt es, sie 
an den TI-Bus zu stecken. Dazu 
muß die Konsole ausgeschaltet sein. 
Der schon erwähnte Kippschalter 
soll in der linken Position stehen. 
Danach schalten Sie Ihr Gerät ein, 
rufen Ex-Basic auf und bringen den 
Kippschalter in die andere Position. 
Jetzt können Sie den Befehl CALL 
INIT eingeben. Nach Eingabe von 
NEW ist Ihr Rechner betriebsbereit. 
Wenn Sie jetzt den Line by Line- 
Assembler von Kassette laden und 
starten, können Sie sofort mit der 
Programmierung Ihrer Ideen begin¬ 
nen. Auf Wunsch erfolgt ein Pro- 
tokoliausdruck über einen ange¬ 
schlossenen Drucker. Der Assembler 
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TIPS & TRICKS 


ähnelt sehr stark dem vom Mini 
Mem, kann aber von der Geschwin¬ 
digkeit nicht mithalten und hat lei¬ 
der auch einige Einschränkungen, 
die nicht verschwiegen werden: 

— nur eine Zahl pro Data- 
Anweisung zulässig 

— außer Indizierung keine Berech¬ 
nung im Operandenfeld 

— Programme sind auf eine be¬ 
stimmte Adresse festgelegt 

— keine vorgegebenen Definitionen 

— das S-Symbol als Synonym für 
den Wert des Programmzählers 
ist nicht zulässig. 

Mit diesen Einschränkungen läßt es 
sich aber ganz gut leben, zumal Sie 
mit diesem Assembler ein wirkungs¬ 
volles Instrument in der Hand ha¬ 
ben, das es auch erlaubt, direkte 
Manipulationen im VDP vorzuneh¬ 
men. Die gesamte Handhabung des 
Assemblers ist problemlos zu nen¬ 
nen und bereitet viel Spaß, wenn 
Sie sich erst einmal eingearbeitet 
haben. 

Eine weitere wertvolle Hilfe stellt 
der Disassembler dar, mit dem Sie 


z.B.: fremde Maschinenprogramme 
untersuchen können. 

Damit Ihre Programme nicht ver¬ 
loren gehen, können Sie alles auf 
Kassette abspeichern. Sie brauchen 
keine schwer verständlichen Befeh¬ 
le einzugeben, denn die Speicher¬ 
routine sucht sich die Namenstabel¬ 
le, Programmstartadresse und Länge 
des Programms selber. 

Genauso unkompliziert funktioniert 
das Wiedereinlesen Ihres Programms. 
Da kann wirklich nichts schief 
gehen. Dafür sorgt die Einleseroutine. 


ERKLÄRUNGEN 


Die auf Kassette mitgelieferten 
Programme befinden sich schon 
recht lange auf dem Markt. Daraus 
macht auch das Handbuch kein 
Geheimnis. Es handelt sich hierbei 
um Ex-Basic-Programme, die erst¬ 
malig 1983 veröffentlicht wurden 
und bis Dato nur mit der 32 KRAM 
liefen. Diese Erweiterung ist zwar 
überall käuflich zu erwerben, kostet 


aber zwischen 450 und 650 DM. 
Die hier vorgestellte Erweiterung 
beläuft sich auf nur 149 DM. 

Selbst das Mini Mem, bisher der 
günstigste Einstieg in die Welt der 
Maschinensprache, kann da nicht 
mithalten. Falls Sie überhaupt 
noch irgendwo ein solches Modul 
erwerben können. 

Diese kleine Hardwareschaltung 
läßt uns aufatmen. Der TI ist noch 
lange nicht tot. Jedenfalls solange 
nicht, wie solch gute Hardware . 
auf den Markt dringt und auch in 
großen Stückzahlen verfügbar ist. 
Die Produktion läuft auf vollen 
Touren und wer sich solch ein 
Gerät zulegen will, der sei an die 
Firma RADIX Bürotechnik in 
Hamburg verwiesen. Sie werden 
mit Sicherheit nicht enttäuscht 
sein. Denn diese Hardware stellt 
eine echte Alternative zur Speicher¬ 
erweiterung oder dem fast nicht 
mehr zu bekommenden Mini Mem 
dar, hat fast den gleichen Befehls¬ 
satz, ist billiger und sehr einfach 
ZU bedienen. Klaus Weidemann 


Hilfe! Die Austrittsgebühr beim Rex Soft Club 
beträgt 85 DM. Deswegen muß ich folgende 
Sachen verkaufen: Joysticks (35 DM), Joystick¬ 
adapter (15 DM) + Othello-Modul (15 DM) + 
Statistik-Modul (20 DM). Tel. 07142/64321 


Centronics-Interface (Extern) für TI 99/4A - 
149- DM. Tel. 07821/7570 


6 aus 49 + 7 aus 38. 2 Systemprogr. (X-Basic) 
mit 28 Systemen. Kass. 30 DM + Nachnahme 
von P. Hielscher, Am Wall 22, 4401 Saerbeck 


Suche: Floppy SS/SD - 150,-. o. DSDD 80 T. 
— 300 ggf. a. preisw. neu sowie Speechsynt. — 
70,-. Tel. 07240/5300 

Verkaufe TI Basic/Extendcd Basic Handbuch ge¬ 
gen Höchstgebot 4 Wo. n. Erscheinung. Vers, 
p. NN. Franz Tersluisen, Tel. 02851/7438 n. 1 7 
Uhr 


Salpha-Software und Module Donkey-Kont 60, 
Dig-Dug45, Defender 35, Burgertime 50, Q-Bert 
60, Re.to Pirate 1.50, Parsec 20, Tombstone Ci. 
20, Alpiner 30, Chisholm Tr. 20, Munch-Man 30, 
Ti-Invaders 20. Tel. 0208 23 299 tgl ab 18 Uhr 


Kompl. Tl-Station: Box, alle Karten, 2 Floppys, 
Drucker, Kass. Rec., Konsole mit integ. Grafic 
X-Basic, E/A-Modul, Adventure, Super Duper, 
Dsk. Manager, Speech-Synthesizer, 3 7er Color- 
TV, + Zub. 2999,- DM VB - Infos Tel.: 030/ 
686 54 03 


TI 99/4A in Orig.-verpackg. + X-Basic + 2 Joy¬ 
sticks + Rec-kabel + Literatur + PGMs (Lohn- und 
Einkommensteuer) 550,—. 040/2 70 30 78 Gert 
Adler (10.00 bis 15.00 Uhr) 


BÖRSE 

BÖRSE 

BÖRSE 

BÖRSE 

BÖRSE 

BÖRSE 

BÖRSE 

BÖRSE 


Verkaufe TI99/4A + Exbasicmod. (original) + 
Schachmod. + Literatur. VB 500 DM (auch Ein¬ 
zelverkauf) Tel. 08039/26 30 


Konsole; Joysticks; Synthesizer; X-Basic; EA; 

MM; X-Box; Diskettenlaufw.; Akustikkop.; 

RS232; Module; haufenweise Spiele; Informations¬ 
material; Adressen; Bücher; Schaltpläne; Listings; 
Wert weit über 5500 VB 4200; kaum benutzt 
760 24 06 (München) 

TI 99/4A, P-Box, RS232, Disk + Contr., 32k, 
P-Code + USCD-Pasc., RGB-Mod., Joyst, E/A + dt. 
Handb., PIO-Kabel + Datenverw.-Modul, 4 Spiel- 
mod.,-Recorderkabel, alles einwandfrei und ori¬ 
ginal TI. + Recorder +15 Disks + ... 

Kompl. 3200,- DM VB. 040/601 48 83 


Hallo TI-Freaks. Verkaufe TI 99 Netzteil (50,— 
DM). Recorderkabel (10,— DM) orig. TI 99/4A 
Schaltnetzteil zum Austausch (50,— DM), TI- 
Tastatur (50,— DM), Jockstik (20,— DM) Kas¬ 
settenrecorder (40,— DM), TI-Modulator (80,—) 
TI-99/4A Netzteil (30,- DM) 

Suche TI-Module. F. Haage, Rudolfstr. 9, 746 
BL-Frommern 07433/35189 


++ GOLF ++ (TI-99/4A + ExBasic) Meistern Sie' 
die 18 Bilder!! Viel Geschicklichkeit und Augen¬ 
maß sind gefordert! TOP GARBGRAPHIK! Bis 
10 Spieler! DISK nur 10,— DM Vorauskasse! 
B&A AHRENS, Am Hinkelstein 21,6140 Berns¬ 
heim 1 


Verk. TI99/4A + Box + Floppy + 27 Disks + Ext. 
Bas + 6 Mod. Parsec-Minus-Schach-Blacky. Ad- 
venture-Disk Manager + Kassetten + Ori.Lit + 
Data Becker + Hefte + Zubehör. VB 1100. H.v. 
Smolinski, Schillerstr. 96, 2080 Pinneberg 
04101-27233 FarbMoni +450 DM 
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Fortsetzung von Seite 139 

unbedingt vorher mittels 
SAVE (das ist ein Pro¬ 
gramm des Arbeitsme- 
nues) „aufheben“. 

Set all: 

SET ALL setzt alle Punk¬ 
te. Abgesehen davon, daß 
das Zeichenfeld nach der 
Anwendung von SET 
ALL nicht weiß, sondern 
schwarz ist, hat dieses 
Programm die gleiche Ei¬ 
genschaft wie CLEAR. Es 
ist sehr nützlich, wenn 
Sie Sprites mit großen 
Dunkelflächen definieren 
wollen. 

Ready: 

Bei der Anwendung von 
READY, dem letzten 
Punkt- des Arbeitsme- 
nues, kehren Sie in das 
Hauptmenue zurück. Das 
von Ihnen gezeichnete 
Sprite wird dabei nicht 
gelöscht. Sie können also 


gegebenenfalls wieder ins 
Arbeitsmenue mittels 
WORKING zurückkehren 
und Veränderungen an 
der Zeichnung vorneh¬ 
men. 

Das Hauptmenue 

r 

Wie bereits erwähnt, 
dient das Hauptmenue 
dazu, erstellte Sprites zu 
verwalten. Wenn Sie Ih¬ 
ren Joystick nach rechts 
drücken, gelangen Sie 
' nicht in den Arbeitsmo¬ 
dus. Zeichnen können Sie 
nämlich nur, wenn Sie 
sich im Arbeitsmenue be¬ 
finden. 

Save 

Mit SAVE können Sie 
fertige Sprites abspei- 
chem und damit für spä¬ 
tere Verwendung aufhe¬ 
ben. 

Dabei fragt Sie der 
Computer nach dem Na¬ 


men des Sprites. Dieser 
darf maximal 16 Buch¬ 
staben betragen. Drücken 
Sie die ALPHA-LOCK 
Taste und geben Sie den 
Namen ein. Nach Drücken 
von ENTER sagt Ihnen 
der Computer, das wie¬ 
vielte Sprite Sie soeben 
gesaved haben. Nicht der 
Spritename, sondern die 
Spritenummer Jst aus¬ 
schlaggebend für das „Zu¬ 
rückholen“ mittels GRE- 
ATE. 

Wurden bereits 18 
Sprites gesaved, so er¬ 
scheint bei versuchtem 
Einstieg in das Programm 
SAVE die Fehlermeldung 
WARNING: MEMORY 
FULL. Achtung: Diese 
Fehlermeldung kommt in 
diesem Fall nicht vom Be¬ 
triebssystem des TI-99/ 
4A, sondern wird soft¬ 
waremäßig simuliert. Tat¬ 
sächlich haben Sie auch 
bei 18 gespeicherten Spri¬ 
tes noch etwa 500 Bytes 
freien Speicherraum zur 
Verfügung. 

Create: 

(Nur in der Version 2.6— 
85, sonst OLD ONE) 

Mit CREATE können Sie 
alte Sprites, die Sie auf¬ 
gehoben haben, wieder 
aufrufen. Der Computer 
fragt Sie nach der Spri¬ 
tenummer des Sprites. 
Geben Sie eine Nummer 
ein, die nicht existiert, so 
ignoriert der Computer 
die Eingabe. Bei der Ein¬ 
gabe einer gültigen Sprite¬ 
nummer stellt der Com¬ 
puter das aufgerufene 
Sprite im Zeichenfeld dar 
und schreibt den. Sprite- 
namen darunter. (Dieser 
dient in erster Linie zur 
Orientierung für Sie). 

Wurde noch kein Spri¬ 
te gesaved, ist der Ein¬ 
stieg in das CREATE- 
Programm nicht möglich! 

Außerdem gibt es im 
Hauptmenue noch die 


Programme HEX OUT 
und LOOK. Sie sind im 
Hauptmenue* nochmals 
angeführt, damit Sie bei 
Bedarf nicht dauern zwi¬ 
schen Haupt- und Ar- ■ 
beitsmenue wechseln 
müssen. • 

Die Funktion der bei¬ 
den Programme ist im 
Hauptmenue genauso wie 
im Neben- oder Arbeits¬ 
menue. 


Erläuterungen, Programm 
technische Daten: 

Das Unterbringen eines 
so umfangreichen Pro¬ 
grammes in einen 16k- 
Speicher wurde erst 
durch die Verwendung 
zahlreicher Unterpro¬ 
gramme möglich. Dem¬ 
entsprechend oft tauchen 
daher im Programm die 
Wörtchen GOSUB oder 
CALL auf. 

Ein weiterer Vorteil 
des Programmes besteht 
darin, daß auf kompli¬ 
zierte Mathematik ver¬ 
zichtet wurde. Bei jeder 
Funktion tastet der Com¬ 
puter den Bildschirm ab 
und holt seine Informa¬ 
tionen unmittelbar vom 
Schirm, was sehr viel.- 
Speicherplatz spart. 

Achtung: Da das Pro¬ 
gramm, wie bereits er¬ 
wähnt, von der Mathema¬ 
tik weitgehend Abstand 
nimmt, bilden die Be¬ 
fehle CALL GCHAR und 
natürlich auch CALL 
HCHAR die Grundlage 
für die Funktion. 

Bei der Eingabe des 
Programmes mittels Li- 
sting in den Computer 
sei daher darauf zu ach¬ 
ten, stets die richtigen 
Variablen oder Zahlen in 
diesen beiden Befehlen 
einzusetzen. Abtippfehler 
können zu schweren Lo¬ 
gikfehlern führen, welche 
auch sehr schwer zu eruie¬ 
ren sein dürften. 
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IM TEST: 

Philips 8020 
Spectravideo 728 
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Creative Graphics 
Yashica 64 
Philips Printer 0020 
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Quickdisk QDM/01 
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NEUE 


mit deutschem Handbuch 


Extended Basic 
Extcnded Basic II Plus 

= Extended Basic + Grafic Extended Basic (Apesoft) in 1 Modul 
Umbauaktion 

wir machen aus Ihrem Extended Basic (Mechatronic ein Extended Basic II Plus 
Umtauschaktion 

Bei Bestellung eines Extended Basic II Plus vergüten wir Ihnen bei kosten¬ 
freier Zusendung eines „Original amerikan. Extended Basic" Moduls 
(elektrisch/mechanisch einwandfreier Zustand!!!) 

32k-RAM-Erweiterung zum seitlichen Anstecken an den Bus, im Kunststoff¬ 
gehäuse 190 x 110 x 60 mm. der Bus wird nach rechts durchgeschleift; 
mit 5V Steckernetzteil 

32k-RAM-Erweiterung, jedoch mit zusätzlichem Centronic-Interface 
nach hinten herausgeführt; Direktanschluß an PP-A4 

1 28k-RANl-Erwciterung (Ausführung wie 32k) mit Centronic-Interface 

Centronic-Interface im Gehäuse der 32k-RAM-Erweiterung 

4 -Farben-Printer-Plotter PP-A4, Centronic-Schnittstelle. DIN-A4 Format. 

Direktanschluß an 32k-RAM 

Slim-Line-Laufwerk 5,25", 500kByte-DS/DD 

Einbausatz für 2 Laufwerke in Original-I I-Box, mit Manual 

DISC-Steuerkarte (CorComp), DS/DD, bis zu 4 Laufwerke anschließbar 

Anschlußkabel PP-A4 an 32K-RAM 

QUICK-DI SC-11 OPPY lim Gehäuse), zum Direktanschluß an TI-99/4A. mit 128kByte - DS, 
für 2,8" Disketten, m,t Sieckerneizteil 


mit deutschem Handbuch 


mit deutschem Handbuch für DM 98, 


7136 Otisheim 


albs-Alltronic G. Schmidt • Postfach 1130 
Tel. 07041/2747 • Telex 7263738 albs 


Preise in DM/Stuck inkl Mwst 
Technische Änderungen Vorbehalten 
Versand gegen Nachnahme oder Vorauskasse 


Mini Memory Spezial dt. 55,- 

Assemblerhandbuch für das 
Mini Memory dt. 78,- 

TI-99/4A intern in dt. (Betriebs¬ 
system. GPL. ROM ...) 38,- 

DISKETTEN- UND 

CASSETTENSOFT- 

WARE 

Superbasic, Exbasic II + Painter, 
Extended Basic Compiler, Gra- 
phicmaster, 3-D-World, Forth, 
Apesoft-Programme, TI-Text. 
TI-Datei, Skat ... a.A 


Buck Rogers, Burgertime, 

Congo Bongo, Return to Pirate's 
Isle, Treasure Isle, Adventure- 
modul je 75,— 

Video Chess, Moon- 
sweeper je 79,— 

Popeye je 89,— 

Miner 2049 99,- 


Joystickinterface + 2 Joysticks 
Quickshot II 95,- 

Cassettenrecorderkabel 29,- 
Extended Basic (Orig. TI) 259,- 
Ext. Basic (dt. Nachbau) 239.- 
Extended Basic II Plus 299,— 
Mini Memory 289,- 

Editor/Assembler 
(32 K notwendig) 175,- 

Tl-Writer (32 K notw.) 299,- 
Multiplan (32 K notw.) 299,- 
Terminal Emulator II 95,’- 
Speech Editor 99,- 

Connect four, Yahtzee je 29,- 
Attack, Chisholm, Trail, Othello, 
Tombstone City, 

Tl-Invaders je 39,- 

Parsec, Alpiner, Indoor, Soccer, 
Car Wars je 49,- 

Fathom, Microsurgeon, Moon- 
mine, Hopper, Bigfoot, 

Statistik je 59,- 

Espial, Defender, Dig Dug, 
Tunnels of Doom, Star 
Trek je 69,- 

Datenverwalter + Analyse 79,- 
Moon Patrol. Jungle Hunt, Hs. 
Pacman, Donkey Kong, 


32 K-Karte (Corcomp) 429,- 
RS 232-Karte (Orig. TI) 429.- 
P-Code-Karte (Orig. TI) 799, 
Compact Peripherie System 99 
(Disccontroller DSD. 32 K-RAM, 
2xV-23, 1 Centronics- 
schn.) 1200,— 

dto. + 1 Laufw. DSDD 1698.- 
Ext. 32 K-Erweiterung 299.— 
dto. = 1 Centronics- 
schnittst. 359,- 

Externes Druckerinterface + 
Kabel + Epson RX 80 1299.- 

dto.+ RX80FT+ 1519,— 

dto. + FX 80+ 1819.— 

dto. + Star SG-10 1279,— 

2. Laufwerk extern Slimline 
DSDD mit Gehäuse + Netz¬ 
teil 899,- 

Sprachsynthesizer 189,— 

Grtffiktablett (Super¬ 
sketch) 239.- 

Modulexpander 3fach 125,— 
8fach 225.- 

Akustikkoppler Dataphon S 
21 d + externe V-24-Schnitstelle 
+ Verbindungskabel 579.— 

Fernbedienung (Orig. TI) 65.— 


BÜCHER 

Editor/Assembler Handbuch 
dt. 98. 

Extended Basic Handb. dt. 48 
TI-Basic & Extend. Basic 48 


Alle Preise inkl. MWSt. zuz. Versandkostenpau¬ 
schale (Warenwert bis DM 1.000,-/darüber): 
Vorauskasse (DM 8,— /20,—), Nachnahme (DM 
11,20/23,20), Ausland (DM 18-/30,-. Versand 
nur gegen Vorauskasse oder per NN; Ausland nur 
Vorauskasse. Gesamtpreisliste gegen Freiumschlag. 

CSV RIEGERT 

Schloßhofstr. 5, 7324 Rechberghausen, 

Tel. (0 71 61) 5 28 89 


bei jedem guten Tl-Händler oder direkt von 
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